- 帖子
- 2847
- 主題
- 10
- 精華
- 0
- 積分
- 2902
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-1-16
|
回復 20# ABK
沒檔案, 盲寫:
Sub TEST()
Dim xA As Range, xR As Range, xU As Range
Set xA = Sheets("Sheet1").UsedRange.Offset(1, 0)
For Each xR In xA.Columns(3).Cells
If InStr("/cat/dog/", "/" & xR & "/") < 2 Then
If xU Is Nothing Then Set xU = xR Else Set xU = Union(xU, xR)
End If
Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub
===================== |
|
發表於 2020-7-19 12:02
| 