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