VBA 使用区域和当前区域
2015-09-06 11:39
281 查看
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
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