第1个回答 2022-01-06
如果只是选中的话，下面的代码就可以了，如果还有其他操作的话，也可以一起加上
Sub test()
Dim x As Long
Dim i As Range
For x = 1 To Range("I65536").End(xlUp).Row
If Cells(x, 1) = "这里换成筛选条件" Then '如果是不确定的条件，也可以用instr来写
If i Is Nothing Then
Set i = Cells(x, 1)
Else
Set i = Union(i, Cells(x, 1))
End If
End If
Next
i.EntireRow.Select
End Sub追问
Sub test()
Dim x As Long
Dim i As Range
For x = 1 To Range("I65536").End(xlUp).Row
If Cells(x, 1) = "这里换成筛选条件" Then '如果是不确定的条件，也可以用instr来写
If i Is Nothing Then
Set i = Cells(x, 1)
Else
Set i = Union(i, Cells(x, 1))
End If
End If
Next
i.EntireRow.Select
End Sub追问
意思懂，但是执行起来没成功;看看语法哪问题？
追答Cells(x, 1)单元格位置你自己改一下就可以了把
追问改了，没问题，多谢指教;另外再问个问题，看看您有无经验，
就是：程序插入几行之后，让程序在插入行后面按递增顺序检索，比如插入6行，我用得I=I+6循环，但是这样就有很多行检索不到，不这样就重复检索。
第2个回答 2022-01-04
望用代码实现选定以下符合条件的多行: 从第6行起是每5行一组的数据,如果M列中是‘错’,则将该组的5行选定
第3个回答 2022-01-04
其实这个在VBA里是非常简单的一段代码，但你的需求有点模糊：是只是反色选定还是复制到其他地方？追问
比如：把I列里号码值都是“9957-1234570-66795”的所在的行都选中，但是I列里具体有多少是号码值“9957-1234570-66795”的不清楚。
追答无所谓啊，VBA基本就是循环，有多少他都可以循环进去。
追问能不能写个程序
追答HI我吧，具体内容具体代码。
相似回答