Option Explicit
Sub 收集符合條件的儲存格集_一次移除所在的列()
Dim xU As Range, i&
Set xU = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count + 1)
For i = 2 To 100
If Cells(i, 9) Like "已超時*" = True Then Set xU = Union(xU, Cells(i, 9))
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.application.union
Next
Application.Goto xU
Application.Wait (Now + TimeValue("0:00:3"))
xU.EntireRow.Delete
End Sub
發表於 2023-2-13 09:21
| 
