最后可打印的Cell Excel VBA

时间:2016-11-04 21:46:10

标签: excel vba excel-vba excel-2013

背景:
如果列A和列B具有非标准数字,我试图通过按下按钮将该数字键入选定的表格。 IE:

A栏.......... B栏
MySheet的工作.................. 2

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

enter image description here


请注意,页脚不起作用,因为它不遵循这样的顺序 - 用户指定为她/他的需要 - 它可能是页脚10但是,用户希望它为15。

方法:
没有什么 - 你可以看到 - 在那个单元格中(图像中的文字和颜色仅用于显示目的),usedrangelast rowgo to special可以帮助我讲话。
问题:
是否有可能获得类似的东西?

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

1 个答案:

答案 0 :(得分: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对象,您还可以根据需要从中获取行,列等。