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
excel使用vb选中指定单元格,到指定行的最后一行有数据的等行数的单元格区间(列等高复制)
最新推荐文章于 2023-08-07 13:16:35 发布