作者:乔山办公网日期:
返回目录:excel表格制作
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,请知自己修改。道
Sub DeleteColumns()
Dim i As Long, maxCol As Long
Dim str As String
maxCol = Cells(4, Columns.Count).End(xlToLeft).Column
For i = maxCol To 1 Step -1
str = Cells(4, i)
If (str Like "*min*") Or (str Like "*max*") Then
Cells(4, i).EntireColumn.Delete
End If
Next i
End Sub
写好时发现已百经有知友回答了, 而且度他的问回答很赞. 但是既然写了就贴出来答吧, 结果都专一样, 细节处理略有不属同.
Sub 删除抄行百度()
For i = 2 To [E65536].End(3).Row
If InStr(Range("E" & i), "数据问答") = 0 Or Not Range("G" & i) Then Range("E" & i).ClearContents
Next
Range("E:E").SpecialCells(4).EntireRow.Delete
End Sub
循环for 与判断if
如果数据量大装入数组判断;不过,你这只一行就没这必要了。