刪除欄位的 VBA

[Rita]

請問--
利用下述VBA count 出欄數後, 如何用該變數來寫刪除欄位的VBA?
cntColumn = Range("A1").CurrentRegion.Columns.Count

如果 cntColumn=14 (即 "N" 欄)
一般的寫法為---Columns ("C:N").Delete
改寫為-------------Columns (3:cntColumn).Delete 似乎無法執行?

[天道無常]

For n = cntColumn To 3 Step -1
Columns(n).EntireColumn.Delete
Next

Post by Rita
請問--
利用下述VBA count 出欄數後, 如何用該變數來寫刪除欄位的VBA?
cntColumn = Range("A1").CurrentRegion.Columns.Count
如果 cntColumn=14 (即 "N" 欄)
一般的寫法為---Columns ("C:N").Delete
改寫為-------------Columns (3:cntColumn).Delete 似乎無法執行?

[Rita]

但如果有很多欄 (50以上), 這樣刪除要花一些時間,
請問有沒有一次 select 多欄 (like--Columns ("C:N").Delete,
但C,N 轉換成數字) , 一次刪除的方法?
--
Best regards,
Rita


"天道無常" 來函：

Post by 天道無常
For n = cntColumn To 3 Step -1
Columns(n).EntireColumn.Delete
Next

Post by Rita
請問--
利用下述VBA count 出欄數後, 如何用該變數來寫刪除欄位的VBA?
cntColumn = Range("A1").CurrentRegion.Columns.Count
如果 cntColumn=14 (即 "N" 欄)
一般的寫法為---Columns ("C:N").Delete
改寫為-------------Columns (3:cntColumn).Delete 似乎無法執行?

[天道無常]

不會吧？你的電腦多慢？我的是2.66 GHz，刪除四十一欄不要一秒．

若要一次全部刪除，可以選取要刪除的欄，然後使用selection.delete（這
只是理論，我沒試過．）

Post by Rita
但如果有很多欄 (50以上), 這樣刪除要花一些時間,
請問有沒有一次 select 多欄 (like--Columns ("C:N").Delete,
但C,N 轉換成數字) , 一次刪除的方法?