最后一个可打印单元格 Excel VBA

Question

背景：
A 列和 B 列具有非标准计数，我试图通过按一个按钮将该数字输入到选定的表格中。 IE：

A 列............B 列
MySheet................................2

问题：
我不确定如何获取最后一个可打印单元格的地址以便将数字粘贴到那里

请注意，页脚将不起作用，因为它不遵循这样的顺序 - 它是用户为 her/him 需求指定的 - 它可能是页脚 10，但是，用户想要它作为 15.

方法：
如您所见，该单元格中没有任何内容（图像中的文本和颜色仅用于显示目的）usedrange, last row or go to special 可以帮助我解决。
问题：
有可能得到类似的东西吗？

Sheets("MySheet").Range(LastPrintable.Address).value = 2

Answer 1

我认为这会奏效。这是一个小菜一碟，但应该更容易理解。随意合并它：

Dim ws As Worksheet
Dim printRange As Variant
Dim lastCell As Range

Set ws = Sheets("MySheet")
printRange = Split(ws.PageSetup.PrintArea, ":")
Set lastCell = Range(printRange(1))

"lastCell" 现在包含可打印区域中的最后一个单元格。

lastCell.Value2 = 2

由于它是一个 Range 对象，您还可以根据需要从中获取行、列等。

最后一个可打印单元格 Excel VBA

Last printable Cell Excel VBA

excel

vba

excel-2013