VBA_操作行和列_常用代码

Sub 行列()

    '获取最大行和列(指定)
    endRow = Cells(Rows.count, 1).End(xlUp).Row  '行
    columnmax = Cells(1, Columns.count).End(xlToLeft).Column  '列
    
     '获取最大行和列(非指定)
    With ActiveSheet.UsedRange
        MaxRow% = .Rows.count    '获取非空行数
        maxCol% = .Columns.count '获取非空列数数
    End With
    
     '获取使用范围内使用的行数、列数
    x = UsedRange.Rows.count
    y = UsedRange.Columns.count

end sub