VBA 选择使用区域

Sub Select_UsedRange()

ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.UsedRange).Select

End Sub

 

rc = .range("a1").CurrentRegion.Rows.Count

cc = .range("a1").CurrentRegion.Columns.Count

cc = .Range(.Cells(1, 1), .UsedRange).Columns.Count

rc = .Range(.Cells(1, 1), .UsedRange).Rows.Count