如何使用VBA 根据单元格里内容进行删除单元格2

发布网友发布时间：2024-01-21 20:21

共2个回答

热心网友时间：2024-11-12 04:57

'给个代码，不过，你给的题里的单词拼写前后不一样，我在程序中是查找“GOOSE”如果要改成“GOSSE”请自己修改一下，特此提醒。代码如下：
Sub 删除()
x = Range("L65536").End(xlUp).Row
For i = 1 To x
If UCase(Cells(i, 12)) = "GOOSE" Then
Cells(i, 12).Delete 3
i = i - 1
End If
Next i
End Sub

热心网友时间：2024-11-12 04:58

Sub 删除L列特定行()
Application.ScreenUpdating = False
Dim i As Long, b As Long
b = Range("l65536").End(xlUp).Row
For i = b To 1 Step -1
If Range("l" & i) = "GOOSE" Then
Range("l" & i).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub追问谢谢呵呵我打错了不好意思你们的答案都OK 那如果是我想根据GOOSE，SV这两种信息进行挑选来生成两种工作薄一个只有GOOSE信息一个只有SV信息
上面那个方法肯定很笨。