作者：乔山办公网日期：
返回目录：excel表格制作
根据你实际修改
菜单：工具-宏-宏...
会弹出“宏”对话框，可以在其中，进行相应的操作。
其中，点“编辑”按钮，会对宏VBA码进行进一步编辑
下面的代zd码实现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，请自己修改容。
把A D F G 4列选中，右键“设置单元格格式”，保护，锁定前面的√去掉。
工具--保护--保护工作表，把“选定锁定单元格”前面的√去掉。
工具--选项--编辑--回车向右。
保存，ok