快速批量选取并复制含有某个字符段的段落到另一个表格

WDBYLXMN · 发表于 2018-9-3 21:35

请高手指点，急！

微笑12345 · 发表于 2018-9-4 00:09

看看是不是这个意思

WDBYLXMN · 发表于 2018-9-4 08:46

微笑12345 发表于 2018-9-4 00:09
看看是不是这个意思

对的，就是这个意思，真的是太棒了！看到有个蓝色的框框--执行，这个具体怎么操作呢，因为还有好多类似这样的数据需要批量查找，谢谢大神！

iwangyi · 发表于 2018-9-4 09:43

Sub CC()
For Each rg In [a1:c1]
For Each Rng In Sheets("1").UsedRange
If InStr(Rng, rg) > 0 Then
N = Cells(65536, rg.Column).End(3).Row
N = N + 1
Rng.Resize(Rng.End(4).Row - Rng.Row + 2).Copy Cells(N, rg.Column)
End If
Next
Next
End Sub

iwangyi · 发表于 2018-9-4 09:47

附件请参考************

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

[求助] 快速批量选取并复制含有某个字符段的段落到另一个表格