作者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/cn.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