轉自EXCEL不加班
按照約定,點“在看”人數太少,今天開始就不聊函數PK,轉移話題聊VBA。
還記得這張現金日記賬彙總表嗎?
彙總表,提取每一個銀行的名稱還有餘額。
明細表,餘額就是E列最後一個金額。
你的做法可能是先一個個複制粘貼工作表名稱,再一個個複制粘貼每個表的餘額。這當然可以解決問題,不過效率太低了吧,你不加班誰加班?
也有比較聰明的,先獲取工作表名稱,然後用LOOKUP函數查找餘額,這樣保證以後的餘額更新,也能正确獲取。
如果你學VBA,那你就會看到讓你震驚的一幕,點一下彙總的按鈕,1秒搞定。
這才是真正的效率!
也許你會認為這個VBA代碼很麻煩,其實這個真的很簡單,很短的語句就可以實現。
Sheets.Count就是統計一共有多少個工作表。
Sheets(i).Name就是獲取每個工作表的名稱。
Sheets(i).Range("e65536").End(xlUp)就是獲取每個工作表E列最後一個非空單元格的值。
Cells(i, 1)就是A列,Cells(i, 2)就是B列。
For Next就是一個循環語句。
知道了意思以後,如果要自己更改就變得更簡單了。
VIP群有一個類似的問題,就是A列提取工作表名稱,B列提取每個表的B2單元格。
Sub 彙總1() Dim i% For i = 2 To Sheets.Count Cells(i, 1) = Sheets(i).Name Cells(i, 2) = Sheets(i).[b2] NextEnd Sub
Sheets(i).[b2]這個就是代表每個表的B2單元格,B2在VBA有很多種表示法,除了[B2],還有Cells(2, 2)、Range("b2")。
VBA入門雖然有點難,不過隻要你掌握了基本的方法,工作效率會大大提升。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!