返回列表 上一主題 發帖

請問：VBA刪除空白欄問題

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
115  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-6-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-2-4 09:30 | 只看該作者

請問：VBA刪除空白欄問題

[版主管理留言]
  • GBKEE(2018/2/4 09:43): Sub Step6() DIM I AS Integer

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

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

我的語法有錯誤


是否可以幫我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
收藏 分享
Just do it.

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
115  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-6-5 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
2#
發表於 2018-2-4 10:30 | 只看該作者
回復 1# jsc0518

感謝版主GBKEE

TEST OK
Just do it.

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題