ikboy

¿ï¨ú°Ï°ì§@¥ÎªºÀx¦s®æ&Äæ&¦Cªº­ºÄæ¦C¤Î§ÀÄæ¦C¦ì¸m
debug.print Selection.address
or
debug.print Selection.address(0,0)

ikboy

±µ¤J±zªº¥N½X¸Õ¬Ý, ¦ý¥Ñ©ó¤£ª¾¿z¿ïªº¹ê»Ú°Ï°ì,¤U­±¥N½X¬O¥H[a1]¬°·Ç
Sub zz()
If ActiveSheet.FilterMode = True Then
    Set rng = [a1].CurrentRegion
    zr = rng.Rows.Count
    zc = rng.Columns.Count
    For i = 2 To zr
        If rng.Cells(i, 1).RowHeight > 0 Then Exit For
    Next
MsgBox rng.Cells(i, 1).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub

ikboy

Sub zz()
If ActiveSheet.FilterMode = True Then
    Set rng = [a1].CurrentRegion
    zr = rng.Rows.Count
    zc = rng.Columns.Count
    For i = 2 To zr
        If rng.Cells(i, 1).RowHeight > 0 Then Exit For
    Next
MsgBox rng.Cells(i, zc).Address(0, 0) & ":" & rng.Cells([a1].End(4).Row, zc).Address(0, 0)
End If
End Sub