发布网友 发布时间:2022-02-21 05:18
共2个回答
热心网友 时间:2022-02-21 06:47
下面的代码实现A1到An:
Sub test()
Dim i As Integer
i = 1
Do While True
If InStr(Range("A1") & i, "y") > 0 Or i = 100 Then Exit Do
If InStr(Range("A" & i), "x") > 0 Then
Rows(i).Delete
Else
i = i + 1
End If
Loop
End Sub
x、y、100就是你的X、Y、N,请自己修改。
热心网友 时间:2022-02-21 08:05
不需要用宏,可以直接按照以下方法操作:
第一种方法:
Ctrl+G调出定位对话框,在【引用位置】处输入A1:E5000,点击【确定】即可。
第二种方法:
在程序左上角的【名称框】处输入A1:E5000,然后回车即可。
第三种方法:
在单元格区域中选中任意一个单元格,按Ctrl+Shift+*即可选定单元格所在整个区域。
第四种方法:
按Ctrl+End跳转到区域最右下角单元格,用鼠标选中;然后拉动滚动条回到第一行,按住Shift,用鼠标点选A1即可。