余小章 @ 大內殿堂

1.在操作Excel時常常會需要取得已使用的行/列數，使用End屬性即可取得非最後非空格。

2.用法如下

Set myRange = ThisWorkbook.Sheets(1).Range("IV3").End(xlToLeft) '表示第三列的最後一欄

3.程式碼如下

'取得最後一列
Sub NotSpaceRow()
    Dim myRange As Range
    Set myRange = ThisWorkbook.Sheets(1).Range("B65536").End(xlUp) '表示在B欄的最後一列
    myRange.Select
    Debug.Print myRange.Value
    Debug.Print myRange.Address
    Debug.Print myRange.Row
    Debug.Print myRange.Column
    MsgBox "值  : " & vbTab & myRange.Value & vbCr & _
           "位置: " & vbTab & myRange.Address & vbCr & _
           "列數: " & vbTab & myRange.Row & vbCr & _
           "行數: " & vbTab & myRange.Column & vbCr
    Set myRange = Nothing
End Sub
'取得最後一欄
Sub NotSpaceColumns()
    Dim myRange As Range
    Set myRange = ThisWorkbook.Sheets(1).Range("IV3").End(xlToLeft) '表示第三列的最後一欄
    myRange.Select
    Debug.Print myRange.Value
    Debug.Print myRange.Address
    Debug.Print myRange.Row
    Debug.Print myRange.Column
    MsgBox "值  : " & vbTab & myRange.Value & vbCr & _
           "位置: " & vbTab & myRange.Address & vbCr & _
           "列數: " & vbTab & myRange.Row & vbCr & _
           "行數: " & vbTab & myRange.Column & vbCr
    Set myRange = Nothing
End Sub

4.範例下載：取得工作表中的最後一欄 列 非空白儲存格.rar

5.一次只能取的一欄或一列的使用數

若有謬誤，煩請告知，新手發帖請多包涵

Microsoft MVP Award 2010~2017 C# 第四季
Microsoft MVP Award 2018~2022 .NET