作者olivefox (Olive)
看板Office
標題[算表]vba不同工作表資料最後一列彙總
時間Sun Feb 5 03:42:47 2017
軟體:excel
版本:
Sub 營業額彙總()
Dim xR As Range, uP$, uF$
uP = "D:\sales\"
Application.ScreenUpdating = False
For Each xR In Range([A3], [A65536].End(3))
If xR = "" Or Dir(uP & xR) = "" Then GoTo 101
uF = "'" & uP & "[" & xR & "]1月'!"
xR(1, 2) = "=" & uF & "$B$6"
xR(1, 3) = "=" & uF & "$B$7"
101: Next
Beep
End Sub
如上 A行列了所有要匯出資料的檔案名稱 檔案位置在uP
我想要彙整各EXCEL表的資料
但是不是像上述的匯出$B$6欄位而已
我要匯出的其實是B行最後一列, 因為每個資料夾的最後一列長度都不同,不一定是6
可能比較像 xR(1, 2) = "=" & uF & "$B$" & lastrow
lastrow是各excel表'1月'的B行最後一列
但lastrow不知道該怎麼設才對
請高手協助了
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.36.26.130
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1486237370.A.7E4.html
※ 編輯: olivefox (114.36.26.130), 02/05/2017 03:44:59
3F：→ waiter337: 大概是這個方向,用formula 然後後面改一改 02/05 06:57
4F：→ waiter337: =LOOKUP(9.99999999999999E+307, 02/05 06:57
5F：→ waiter337: =LOOKUP(REPT(""龘"",255), 02/05 06:57
6F：→ waiter337: 改的方式很簡單,就是你人工打好一次 02/05 06:59
7F：→ waiter337: 接著錄製巨集,然後再輸入一次你剛輸入的公式,就錄好了y 02/05 07:00
8F：→ waiter337: 記得錄制巨集注意兩點,1.副檔案要關掉,沒關掉路徑不同 02/05 07:01
9F：→ waiter337: 2.R1C1的部份請改成我照片的方式 02/05 07:01
10F：→ waiter337: 最後在把xR(1, 2).Formula = 加上 02/05 07:03
11F：→ waiter337: xR(1, 3).Formula = 02/05 07:03
13F：→ waiter337: 樓上棒! 02/05 10:45
14F：→ olivefox: xR(1, 2).FormulaR1C1 = "=lookup(9.999999E+307,uF & C 02/05 15:03
15F：→ olivefox: 如果改成這樣 就不能用uF的連結 請問怎麼辦呢 02/05 15:04
16F：→ olivefox: = "=lookup(9.999999E+307,uF & C[-1])" 02/05 15:05
17F：→ visualchen: 這樣 = "=lookup(9.999999E+307," & uF & "C[-1])" 02/05 15:34
18F：→ olivefox: 謝謝 這樣改就可以了 好神奇 太感謝了 02/05 23:53