[已解决]合并单元格后面数据提取

bollywoo · 发表于 2021-11-30 17:17

求助：
1.根据表2 中要查找的内容，
2.根据表1 中的原始数据，
3.用函数生成表3 的样式。
微信图片_20211130171041.png

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2021-11-30 21:02

Sub 数据转移()
Dim startrow As Integer, endrow As Integer
Dim lastrow As Integer, i As Integer, j As Integer, k As Integer
lastrow = Sheets(2).Range("a65536").End(xlUp).Row
If lastrow = 1 Then Exit Sub
k = 2
Sheets(3).Range("a2:c999").Clear
With Sheets(1)
For i = 2 To lastrow
startrow = Application.Match(Sheets(2).Range("a" & i), .Range("b1:b65536"), 0)
j = startrow + 1
Do Until .Range("b" & j) <> "" Or .Range("c" & j) = ""
j = j + 1
Loop
endrow = j - 1
.Range("b" & startrow & ":d" & endrow).Copy
Sheets(3).Activate
Range("a" & k).Select
ActiveSheet.Paste
k = k + endrow - startrow + 1
Next
End With
End Sub

复制代码

跳转到最佳答案楼层

bollywoo · 发表于 2021-11-30 17:19

望各位大师给予指点，谢谢！

bollywoo · 发表于 2021-11-30 17:36

Excel 文件

bollywoo · 发表于 2021-11-30 17:38

刚刚上传了 Excel 文件，上面的图片正是来自这个文件。可以打开来进行直接添加函数公式。谢谢！

心正意诚身修 · 发表于 2021-11-30 20:13

怎么说呢。函数只能得到一个值。。它不能对单元格的格式进行处理。最多只能是值的显示方式。它不能排序呀。合并等操作。

心正意诚身修 · 发表于 2021-11-30 21:02

Sub 数据转移()
Dim startrow As Integer, endrow As Integer
Dim lastrow As Integer, i As Integer, j As Integer, k As Integer
lastrow = Sheets(2).Range("a65536").End(xlUp).Row
If lastrow = 1 Then Exit Sub
k = 2
Sheets(3).Range("a2:c999").Clear
With Sheets(1)
For i = 2 To lastrow
startrow = Application.Match(Sheets(2).Range("a" & i), .Range("b1:b65536"), 0)
j = startrow + 1
Do Until .Range("b" & j) <> "" Or .Range("c" & j) = ""
j = j + 1
Loop
endrow = j - 1
.Range("b" & startrow & ":d" & endrow).Copy
Sheets(3).Activate
Range("a" & k).Select
ActiveSheet.Paste
k = k + endrow - startrow + 1
Next
End With
End Sub

复制代码

bollywoo · 发表于 2021-12-1 11:09

心正意诚身修发表于 2021-11-30 20:13
怎么说呢。函数只能得到一个值。。它不能对单元格的格式进行处理。最多只能是值的显示方式。它不能排序呀。 ...

哦谢谢！

bollywoo · 发表于 2021-12-1 11:09

心正意诚身修发表于 2021-11-30 21:02

这个很专业我不是学软件的看不懂

谢谢！

bollywoo · 发表于 2021-12-21 08:42

心正意诚身修发表于 2021-11-30 20:13
怎么说呢。函数只能得到一个值。。它不能对单元格的格式进行处理。最多只能是值的显示方式。它不能排序呀。 ...

是这样的：
1.首先，表2 列出三个销售人员的名字；
2.再根据表1 中的原始数据，针对表2 所列出的名字，对应地取出全部相关数据，结果就像表3 那样。

一定有人会做。因为在另一个主题里，一位版主就做到了一部分，只是还不能直接套用，原因是我没讲清楚，所以解答的只做了一部分。其实他已经很厉害了。
我没有系统地学习过 Excel ，看不太懂。现在想先试试，实在不懂了再去向他请教。

实际上，对于表1 中有几千个业务员时，要求这个时候，无论抽取多少位销售员出来，依然能做到像表3 那样。注意，并不要求能排序

心正意诚身修 · 发表于 2021-12-24 18:32

bollywoo 发表于 2021-12-21 08:42
是这样的：
1.首先，表2 列出三个销售人员的名字；
2.再根据表1 中的原始数据，针对表2 所列出的名字 ...

跟你说了。函数是不能直接得出那种效果的。这种函数水平高低没有关系。技巧可以。VBA也可以。纯公式是实现不了的。

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