- 帖子
- 450
- 主題
- 110
- 精華
- 0
- 積分
- 557
- 點名
- 82
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-11-7
- 最後登錄
- 2024-4-24
       
|
回復 2# ikboy
Dear 謝謝您的回覆,
下列語法是將A欄列若有出現關鍵字時，就刪除該列
但我想把其中一個關鍵字"空白"-->若遇A欄列為空白時，就不要刪除
我改了
原本： .Pattern = "空白|公司|單別:|日期|產品大類:|核准|合計|總計"
更改： .Pattern = "公司|單別:|日期|產品大類:|核准|合計|總計"
但A欄列空白該列也會一併刪除
是否哪一段VBA語法需做修改呢？
Sub Step1()
'刪除 key word : 公司 / 單別: / 日期* / 產品大類: / 核准 / 合計* / 統計*
Dim reg As Object, a, rng As Range, z&
a = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
z = UBound(a)
Set rng = Rows(z + 1)
Set reg = CreateObject("vbscript.regexp")
With reg
.Pattern = "空白|公司|單別:|日期|產品大類:|核准|合計|總計"
For i = 1 To z
If Len(a(i, 1)) = 0 Or .test(a(i, 1)) Then
Set rng = Union(rng, Rows(i))
End If
Next
End With
rng.Delete
Set rng = Nothing
End Sub |
|
發表於 2018-2-2 14:54
| 
