엑셀 VBA 사용자가 선택한 셀의 범위 알아내기

Sub user_selet()

    Dim i As Long, j As Long

    Range("h3").CurrentRegion.Clear

    i = Selection.Cells().Rows.Count    ' 사용자가 선택한 행의 갯수 알아내기
    j = Selection.Cells().Columns.Count    ' 사용자가 선택한 열의 갯수 알아내기 
    
    Range(Cells(3, 2), Cells(3 + i - 1, 2 + j - 1)).Copy    ' 사용자가 선택한 영역 복사하기 
    Range("h3").PasteSpecial
    Range("b3").Select
    Application.CutCopyMode = xlCopy

End Sub

 

' 이것은 선택을 시작하는 주소를 알고 있는 경우이고 모르는 경우는 주소를 별도로 알아내야 한다.

' 아래와 같이 알아내면 된다.

'   For Each c In Selection.Cells().Cells 
'        Debug.Print c.Address
'    Next