小白求助，每页指定表格内容提取怎么做。。

yellowhawk · 发表于 2024-5-23 09:16

本帖最后由 yellowhawk 于 2024-5-23 09:17 编辑

我用简单的一个VBA实现了你的需求，提取如你的第一个一样在V列
Sub 找数()
Dim a, i
For a = 0 To 54 '(此处根据你的表格数据55页，所以从0-54）
With Sheet1
.Cells(8 + (a * 20), 22) = .Cells(2 + (a * 20), 16)
.Cells(9 + (a * 20), 22) = Left(.Cells(18 + (a * 20), 3), 13)
.Cells(10 + (a * 20), 22) = .Cells(3 + (a * 20), 19)
For i = 0 To 9
.Cells(11 + i + (a * 20), 22) = .Cells(5 + i + (a * 20), 19)
Next
End With
Next
End Sub

萌新一枚 · 发表于 2024-5-23 10:04

yellowhawk 发表于 2024-5-23 09:16
我用简单的一个VBA实现了你的需求，提取如你的第一个一样在V列
Sub 找数()
Dim a, i

大哥，我以前没用过OFFICE,刚才用了一下你的宏是真的方便，感谢

yellowhawk · 发表于 2024-5-23 10:15

萌新一枚发表于 2024-5-23 10:04
大哥，我以前没用过OFFICE,刚才用了一下你的宏是真的方便，感谢

我的这个程序也容易理解，就是把对应的数据提取到对应的位置就行了，而且每个表相差都是20行，有这个规律，就只需要循环一下就行了。

萌新一枚 · 发表于 2024-5-23 10:33

yellowhawk 发表于 2024-5-23 10:15
我的这个程序也容易理解，就是把对应的数据提取到对应的位置就行了，而且每个表相差都是20行，有这个规律 ...

再添加一个（碳化值）找数应该在VBA里面怎么添加呢

zhj_627 · 发表于 2024-5-23 11:03

提取数据.zip (97.15 KB, 下载次数: 0)
左侧的数据通过数据 —— 重复项 ——删除重复项复制即可

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

[求助] 小白求助，每页指定表格内容提取怎么做。。

评分

评分