VBA基础之单元格区域选取的几种案例

 

Sub 定位最后一列一行()
    Dim i, x, y, z, k, p, n
    x = Cells(Rows.Count, "J").End(xlUp).Row  '无法避免空格区域行
    y = Cells(1, Columns.Count).End(xlToLeft).Column  '无法避免空格区域列
    i = Sheets("库存").UsedRange.Rows.Count     '所有使用的单元格组成的区域行
    z = Sheets("库存").UsedRange.Columns.Count      '所有使用的单元格组成的区域列
    k = Sheet5.Range("A1").CurrentRegion.Rows.Count      '以a1为起点,连续单元格区域
    
    [K1] = x
    [K2] = y
    [K3] = i
    [K4] = z
    [K5] = k
End Sub