[已解 ]VBA 搜尋欄刪除列如何撰寫

藤羽楓
個人積分：8分
文章編號：43065468

8分

樓主

2013-04-13 4:36

請問各位高手.. 我該如何判斷 A3 若為空然後D3 有值時 , 則將此列刪除 (是完全刪除列不是清空數值)

然後 A3為空且D(X)也為空值就結束。

----------------------------------

有附上測試檔以及期望完成檔

附加壓縮檔: 資料.zip

2013-04-13 4:36 發佈

文章關鍵字 VBA 搜尋欄

藤羽楓

藤羽楓
個人積分：8分
文章編號：43145987

8分

樓主

2013-04-17 9:52

已下提供VBA 給跟我有同樣的問題得人有方向思考

雖沒有很齊全...

---------------------Begin----------------------------
//掃描首攔若為空則刪除該列
For i = 1 To 80
Rows(i & ":" & i).Select
If ActiveCell.Value = Empty Then
j = j + 1
Selection.Delete Shift:=xlUp
If 80 - j >= i Then
i = i - 1
End If
Else
ActiveCell.Offset(1, 0).Select
End If
Next
//已下是刪除關鍵字所在列
Dim YY, MM
YY = "Keyword"
If CStr(YY) = "False" Then Exit Sub
For i = [a65536].End(xlUp).Row To 1 Step -1
MM = Application.Match(YY, Rows(i), 0)
If IsError(MM) = False Then Rows(i).Delete
Next i

---------------------End------------------------------

P.S 80為列數。可自行修改

從 APP 打開

[已解 ]VBA 搜尋欄 刪除列 如何撰寫

[已解 ]VBA 搜尋欄刪除列如何撰寫