Excel VBA。 如何select某个单元格，然后将可变数字或行向下偏移，然后打印该select

就像标题中所说的那样。 我需要在从B18到J18的区域打印一个可变数量的行。 我不知道如何设置。 该variables号通过使用=COUNTA(B20:B65536)函数保存在单元格=COUNTA(B20:B65536) 。 我只需要select下去许多行。

这是我的代码到目前为止。

 Sub PrintPlease() I = Cells("O24").Value With ActiveSheet.PageSetup .Zoom = False .Orientation = xlPortrait .FitToPagesWide = 1 .FitToPagesTall = 1 ExecuteExcel4Macro ("PAGE.SETUP(,,,,,,,,,,,,{#N/A,#N/A})") If .Zoom < 30 Then .Zoom = 50 Else .Zoom = False .FitToPagesWide = 1 End If End With Range ("B18:J18"), Cells("B18").Offset((I), 3).PrintOut, Preview:=True End Sub 

Answer 1

您可以使用

 Range("B18:J" & Range("O24").Value).PrintOut Preview:=True 

由于单元格O24中的值包含要打印的行数，因此您可以通过将单元格O24中的值附加到B18：J来打印从单元格B18开始到单元格J的值的单元格O24的值。