VBA 写几句代码搞定
或者 用Indirect 函数,但是要把 所有文件 都打开 才能提取出来
追问怎么vba写?
追答哪一列? 这列 数有标题么?
追问
追答右键点 汇总表 工作表名--查看代码 ,如下代码 复制进去,F5 运行, 这里默认 汇总表 和 分表 放在一个文件夹里,
没测试,直接写的,你测试下 再用 ( workbooks.open 少写了个 s)
sub countnum()
for i=2 to [a65536].end(xlup).row
set wk=workbooks.open(thisworkbook.path &"\" & range("A" & i).value)
r=wk.sheets(1).[u65536].end(xlup).row -1 '收集第1个Sheet1
wk.close false
range("B"& i) =r
next
end sub
追问在哪里点右键啊,
追答工作表名称

追问
我为什么没有啊
追答点工作表的 名字 ,不是点单元格


