我是 VBA 新手,还无法弄清楚如何立即从工作表中选择和删除“非UsedRange”(即将UsedRange 从单元格A1 开始)。
换句话说,我需要一个动态解决方案来将可变大小的 UsedRange 从其可变位置移动到其工作表的最左上角(即,UsedRange 左侧/顶部的所有空列/行都应该消失)。
我(可能)找到了一个单行代码(仅)为(仅)一个特定列执行此操作:
ActiveSheet.Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
如何将 excel UsedRange 转换为从单元格 A1 开始其工作表(即删除 UsedRange 之外的所有空白行和列)?
最佳答案
只需在它们为空白时继续删除第 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
关于vba - 如何将 excel UsedRange 转换为从单元格 A1 开始其工作表(即删除 UsedRange 之外的所有空白行和列)?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47670247/