[Visual Basic] 纯文本查看 复制代码Sub HideRows()
Dim i As Integer
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Range("A" & i).Value = "1002" And Range("B" & i).Interior.ColorIndex = 3 Then
Range("A" & i).EntireRow.Hidden = False
Else
Range("A" & i).EntireRow.Hidden = True
End If
Next i
End Sub
使用宏即可
T4DNA 发表于 2023-3-27 22:48
[mw_shl_code=vb,true]Sub HideRows()
Dim i As Integer
For i = 1 To Cells(Rows.Count, "A").E ...
正在学习易语言操作excel，大佬可否用易语言，用了小虫子大佬的模块隐藏失败，应该是哪里没该对
