VBA를

Question

가능한 복제를 사용하여 마지막으로 사용 된 칼럼의 주소를 찾는 방법 :
Last not empty cell in row; Excel VBA
Finding the number of non-blank columns in an Excel sheet using VBA

내가 (선택된 셀의 주소를 얻기위한 VBA 코드를 작성했습니다 안녕하세요

활성 셀). 그러나 나는 마지막으로 사용 된 열 주소의 주소, 여기에 내가 그것을 제대로 작동하지만 난 마지막으로 사용 된 컬럼의 주소를 원하는

Dim a As String 
a = Split(ActiveCell.Address, "$")(1) 
MsgBox a 

을 쓴 코드입니다합니다. 내가 "AB"열까지의 가치를 가지고있는 것처럼 나는 VBA 코드를 사용하여 그 주소를 얻고 싶다.

Answer 1

이와 비슷한?

Option Explicit 

Sub Sample() 
    Dim ws As Worksheet 
    Dim a As String 
    Dim LastCol As Long 

    '~~> Set this to the relevant sheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    '~~> Get the last used Column 
    LastCol = LastColumn(ws) 

    '~~> Return Column Name from Column Number 
    a = Split(ws.Cells(, LastCol).Address, "$")(1) 

    MsgBox a 
End Sub 

Public Function LastColumn(Optional wks As Worksheet) As Long 
    If wks Is Nothing Then Set wks = ActiveSheet 
    LastColumn = wks.Cells.Find(What:="*", _ 
       After:=wks.Range("A1"), _ 
       Lookat:=xlPart, _ 
       LookIn:=xlFormulas, _ 
       SearchOrder:=xlByColumns, _ 
       SearchDirection:=xlPrevious, _ 
       MatchCase:=False).Column 
End Function