上次打印的Cell Excel VBA

背景:
有一个列A和列B与非标准的数字,我试图通过按下一个button键入该数字选定的表。 IE:

A列………. B列
MySheet的工作……………… 2

问题:
我不知道如何获取最后打印的单元格的地址,以便粘贴数字

在这里输入图像说明

请注意,页脚不会工作,因为它不是按照这样的顺序进行的 – 用户是为他/她的需要指定的,它可以是页脚10,但用户希望它是15。

做法:
在这个单元格中(图像中的文本和颜色只是为了显示目的),没有任何东西可以使用 , 最后一行或特殊的可以帮助我解决。
题:
是否有可能得到类似的东西?

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

我认为这将工作。 这是一件小事,但应该更容易遵循。 随意巩固它:

 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对象,所以你也可以从中看到行,列等等。