vba - Excel/VBA 最后一行/列

Question

这个问题在这里已经有了答案:





Error in finding last used cell in Excel with VBA

(14 个回答)


2年前关闭。




我需要复制粘贴大张纸，这需要很多时间。
有人建议我不要在工作表上使用 .copy 过程，而是逐个单元格地进行。赋予新细胞每个古老细胞的特性。这就是我在这里所做的:Saving only some sheets in another Workbook .

要逐个单元格地执行此操作，我需要知道最后一个包含信息的单元格。 (不仅是值(value)，还有颜色、边框......等)。我在互联网上看到了许多简单的解决方案，但它们都有问题。

ActiveSheet.UsedRange.Rows.Count 经常给出太多值...我得到一个 5 * 18 表的 810 * 16000 答案

range("A"& activesheet.rows.count).end(xlup).row 仅适用于第一列...

用 value 完成真正的最后一行的最佳方法是什么？包含信息(值、颜色、边框...)

Answer 1

Excel 2010 中的此命令 ActiveCell.SpecialCells(xlLastCell).Select将光标(事件单元格)移动到最后一个具有非平凡值的单元格，即使当前单元格是空白的

这个命令Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select将选择从当前到最后一个具有非平凡值的所有单元格。