需要 VBA 代码在工作表中搜索数据并将所选数据打印在一页中答案

【问题标题】：Need VBA code to search for data in a sheet and print the selected data in one page需要 VBA 代码在工作表中搜索数据并将所选数据打印在一页中
【发布时间】：2015-03-01 09:18:01
【问题描述】：

我需要在工作表中找到各种数据并选择这些数据并将所选数据打印到打印输出，并将所有数据打印在一页中。我尝试了这段代码，但出了点问题：

Sub Selection()
Dim varRow As String

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Range("A" & i).Value = "M655" Or Range("A" & i).Value = "Equity Fund" Then
    If Trim(varRow) <> "" Then
    varRow = varRow & "," & i & ":" & i
    Else
    varRow = varRow & i & ":" & i
    End If
End If
Next i

Range(varRow).Select


Selection.PrintOut
With ActiveSheet.PageSetup
    .PrintTitleRows = "$3:$3"
    .PrintTitleColumns = "$B:$B"
    .Orientation = xlLandscape
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1

End with
End Sub

【问题讨论】：

标签： vba excel

【解决方案1】：

一个问题是，在您遍历单元格后，varRow 是一串用逗号分隔的“M655”和“Equity Fund”。然后，您尝试将该字符串用作无效范围的参数。如果您尝试构建一串范围地址（“a1”、“a2”等），请尝试使用 .AddressLocal 属性。此外，在设置打印设置之前使用 .PrintOut。在设置页面设置设置后尝试放置该行以使其生效。

【讨论】：