excel使用vb选中指定单元格，到指定行的最后一行有数据的等行数的单元格区间（列等高复制）

Sub 宏1()
'
' 宏1 宏
'

'
    Dim r As String
    Dim ry As String
    r = "D12"
    ry = "A"
    Range(Range(r), Cells(Range(ry & Rows.Count).End(xlUp).Row, Range(r).Column)).Select

End Sub