vba - 如何将 excel UsedRange 转换为从单元格 A1 开始其工作表(即删除 UsedRange 之外的所有空白行和列)？

Question

我是 VBA 新手，还无法弄清楚如何立即从工作表中选择和删除“非UsedRange”(即将UsedRange 从单元格A1 开始)。

换句话说，我需要一个动态解决方案来将可变大小的 UsedRange 从其可变位置移动到其工作表的最左上角(即，UsedRange 左侧/顶部的所有空列/行都应该消失)。

我(可能)找到了一个单行代码(仅)为(仅)一个特定列执行此操作:

ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

如何将 excel UsedRange 转换为从单元格 A1 开始其工作表(即删除 UsedRange 之外的所有空白行和列)？

Answer 1

只需在它们为空白时继续删除第 1 行和 A 列。

with worksheets("sheet1")
    do while not cbool(application.counta(.rows(1).cells))
        .rows(1).entirerow.delete
    loop
    do while not cbool(application.counta(.columns(1).cells))
        .columns(1).entirecolumn.delete
    loop
end with