excel - 运行宏后隐藏行 "unhides"

Question

我有一个工作表，其中第 2 行被隐藏。宏将粘贴到该行中。每当我运行这个宏时，隐藏的行就会重新出现。

有办法防止该行再次出现吗？

这是我的代码，它仍然隐藏第 2 行

子更新2029()

Dim LSearchRow As Integer
Dim LCopyToRow As Integer
Dim LSearchValue As String

On Error GoTo Err_Execute
Application.ScreenUpdating = False

LSearchValue = InputBox("Please enter a serial number to search for.", "Enter value")

'Start search in row 5
LSearchRow = 5

'Start copying data to row 2 in "Master" (row counter variable)
LCopyToRow = 2

While Len(Range("A" & CStr(LSearchRow)).Value) > 0

    'If value in column A = LSearchValue, copy entire row to "Master"
    If Range("A" & CStr(LSearchRow)).Value = LSearchValue Then

        'Select row in "Master" to copy
        Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
        Selection.Copy

        'Paste row into "Master" in row 2
        Sheets("Master").Select
        Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
        ActiveSheet.PasteSpecial


    End If

    LSearchRow = LSearchRow + 1

Wend

'Position on cell A3
Application.CutCopyMode = False
Range("A3").Select

MsgBox "All matching data has been copied to 2029."

Exit Sub

执行错误: MsgBox "发生错误。" Sheets("Master").Rows("2:2").EntireRowHidden = True ApplicationScreenUpdating = True

End Sub

Answer 1

这取决于您在该行中粘贴的方式。

如果你这样做

 Sheet1.Rows(2).Copy Sheet2.Rows(5)

第 5 行被隐藏，粘贴后它将取消隐藏。这样做的原因是因为第 5 行继承了第 2 行的属性。

如果您使用特殊粘贴，则不会。请参阅此示例

 Sheet1.Rows(2).Copy
 Sheet2.Rows(5).PasteSpecial xlValues

如果您想执行 PasteAll(场景 1)，那么您将必须再次隐藏该行，否则继续执行第二段代码。