【Excel VBA】取得使用儲存格最後一欄欄數

VBA取得最後一欄欄數

當我們使用VBA迴圈時，常會以第一欄執行至最後一欄，那要怎麼使用VBA取得使用儲存格中最後一欄的欄數呢？以下列出幾種主要的方法。

<此篇為精簡版，詳細說明可點選以下>

【Excel VBA】取得使用儲存格最後一欄欄數~詳細說明

方法一 移到下方取欄數

Sub 取得最後一欄()
欄 = Range(“A1”).End(xlToRight).Column
MsgBox 欄
End Sub

方法二 移到左方取欄數

Sub 取得最後一欄()
欄 = Range(“IV1”).End(xlToLeft).Column
MsgBox 欄
End Sub

方法三 取最大欄數移左方

Sub 取得最後一欄()
欄 = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox 欄
End Sub

方法四 計算區域儲存格的欄數

Sub 取得最後一欄()
欄 = Range(“A1”).CurrentRegion.Columns.Count
MsgBox 欄
End Sub

方法五 列數加一直到空白列

Sub 取得最後一欄()
欄 = 1
Do While Cells(1, 欄) <> “”
欄 = 欄 + 1
Loop
MsgBox 欄 – 1
End Sub

以上執行後則取得最後一欄欄數！

VBA取得最後一列列數

【Excel VBA】取得使用儲存格最後一列列數

其他文章分享