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

看板Office作者olivefox (Olive)時間7年前 (2017/02/05 03:42)推噓1(1推 0噓 17→)

留言18則, 3人參與討論串1/1

軟體: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

02/05 06:52, , 1^F

02/05 06:52, 1^F