excel 复制包含指定关键字的单元格 用vba

Question

如何用vba批量选中包含表中包含“http://”的单元格，并复制在剪贴板。。？需要用vba,不要用excel的查找功能

Answer 1

循环遍历，只要有http://字样的单元格内容都集中起来。要通用的话，得提供包括所有情况的样表。

追问

大部份情况是同列的，帮忙写条同列的行吗

追答

'先找到，然后复制到一个位置排列，最后复制到剪贴板;不区分行、列。
Sub t()
k = 1
For i = 1 To ActiveSheet.UsedRange.Rows.Count
    For j = 1 To ActiveSheet.UsedRange.Columns.Count
        If InStr(Cells(i, j), "
) > 0 Then
            Sheets(2).Cells(k, 1) = Cells(i, j)
            k = k + 1
        End If
    Next
Next
Sheets(2).Select
Columns(1).Select
Selection.Copy
End Sub

追问

出现这个东东

追答

调成一行，逗号那不应换行。红色部分移到上一行

追问

是这样吗？还是提示错误

追答

if instr(cells(i,j),
)>0 then

 不行，百度把关键字滤掉了，看图：

Answer 2

含http的数据是不是不在一列？？

追问

大部份情况是在同一列的。应该能写成不同列或者同列都通用的代码吧

追答

不同列搞到剪贴板要怎么排？

追问

晕，也是，那帮忙搞一条同列的

追答

你的数据在不同列。放到剪贴板其实就变成一列了。。
放到剪贴板具体怎么放，比如先放一列，再接着放下一列。还是根据行号，按顺序来放。。
废话不多说。。你加57321522 把你的表格发来。。。