標題: 請問：VBA刪除空白欄問題 [打印本頁]

---

作者: jsc0518    時間: 2018-2-4 09:30     標題: 請問：VBA刪除空白欄問題

本帖最後由 jsc0518 於 2018-2-4 09:31 編輯

Dear 先進,
我想自動刪除，只要是欄位(A1、B1、C1..................)是空白時，就刪除整欄列
如B1空白，刪除B1~Bxxxxxx(整欄)

我的語法有錯誤
[attach]28314[/attach]

是否可以幫我debug

Sub Step6()
'刪除空白欄
For i = Cells(1, 256).End(xlToLeft).Column To 1 Step -1
If Cells(1, i) = "" Then
Cells(1, i).EntireColumn.Delete Shift:=xlToLeft
End If
Next i
End Sub

---

作者: jsc0518    時間: 2018-2-4 10:30

回復 1# jsc0518

感謝版主GBKEE

TEST OK

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)