[算表]vba不同工作表資料最後一列彙總

[olivefox (Olive)]

軟體: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://www.ptt.cc/bbs/Office/M.1486237370.A.7E4.html
※ 編輯: olivefox (114.36.26.130), 02/05/2017 03:44:59
推 waiter337:  http://i.imgur.com/mpYKfnb.jpg
→ waiter337:  http://i.imgur.com/Y9U7UwX.jpg
→ waiter337: 大概是這個方向,用formula  然後後面改一改
→ waiter337: =LOOKUP(9.99999999999999E+307,
→ waiter337: =LOOKUP(REPT(""龘"",255),
→ waiter337: 改的方式很簡單,就是你人工打好一次
→ waiter337: 接著錄製巨集,然後再輸入一次你剛輸入的公式,就錄好了y
→ waiter337: 記得錄制巨集注意兩點,1.副檔案要關掉,沒關掉路徑不同
→ waiter337: 2.R1C1的部份請改成我照片的方式
→ waiter337: 最後在把xR(1, 2).Formula = 加上
→ waiter337: xR(1, 3).Formula =
→ visualchen: 試試  https://goo.gl/UjCx6l
→ waiter337: 樓上棒!
→ olivefox: xR(1, 2).FormulaR1C1 = "=lookup(9.999999E+307,uF & C
→ olivefox: 如果改成這樣 就不能用uF的連結 請問怎麼辦呢
→ olivefox:  = "=lookup(9.999999E+307,uF & C[-1])"
→ visualchen: 這樣 = "=lookup(9.999999E+307," & uF & "C[-1])"
→ olivefox: 謝謝 這樣改就可以了 好神奇 太感謝了