请老师帮忙用vba提取数据，谢谢

qdchyq · 发表于 2018-12-14 20:18

新建文件夹.rar (12.31 KB, 下载次数: 19) ，请老师帮忙用vba提取数据，模板里只是一部分，工作表还有不少，谢谢老师

qdchyq · 发表于 2018-12-14 21:44

跪求老师帮忙

excelvlookup · 发表于 2018-12-14 21:54

表头都用省略号，充分说明这就是个体力活。没有难度，就是太麻烦。

张道贤 · 发表于 2018-12-14 22:06

提到汇总？还是提到每个表

qdchyq · 发表于 2018-12-14 22:53

提到汇总老师

1414675912 · 发表于 2018-12-14 23:04

本帖最后由 1414675912 于 2018-12-14 23:15 编辑

把汇总表放到第一个然后复制代码，其他的类推就好
Sub Test()
Dim a As Byte
For a = 2 To Sheets.Count
With Sheets(1)
.Cells(a, 1).Value = Sheets(a).Range("B3")
.Cells(a, 2).Value = Sheets(a).Range("D3")
.Cells(a, 3).Value = Sheets(a).Range("F3")
.Cells(a, 4).Value = Sheets(a).Range("B4")
.Cells(a, 5).Value = Sheets(a).Range("F4")
End With
Next
End Sub

我才疏学浅只能帮到这了

szynba3323 · 发表于 2018-12-14 23:29

没必要用VBA INDERECT函数了解一下 get.workbook函数了解一下（取所有工作表的名字）

wmqz.130 · 发表于 2018-12-14 23:53

qdchyq 发表于 2018-12-14 21:44
跪求老师帮忙

先发个跪的照片！

张道贤 · 发表于 2018-12-15 01:04

Sub 信息采集()
For Each i In Worksheets
If i.CodeName = "Sheet2" Then GoTo 101
n = n + 1
arr = Split("B3,D3,F3,F4", ",")
With i
For j = 1 To UBound(arr) + 1
Sheet2.Cells(n + 1, j) = .Range(arr(j - 1))
Next j
End With
101:
Next i
End Sub

复制代码

自己把要提取的单元格写到Split("B3,D3,F3,F4", ",")里边去

		自动登录	找回密码
密码			免费注册

[求助] 请老师帮忙用vba提取数据，谢谢

最新热点 /1