- 帖子
- 455
- 主題
- 111
- 精華
- 0
- 積分
- 563
- 點名
- 228
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-11-17
       
|
回復 2# bobomi
Hi bobomi,
它出現
Sub DelBlank2()
Dim d As Object
Dim arr
st = Timer
Set d = CreateObject("Scripting.Dictionary")
For Each x In Split("類別:.會計科目:", ".")
d(x) = ""
Next x
arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
For I = 1 To UBound(arr)
If d.exists(arr(I, 1)) Then arr(I, 1) = ""
Next I
[A1].Resize(UBound(arr), 1) = arr
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Set d = Nothing
arr = ""
End Sub |
|
發表於 2017-3-2 19:06
| 