Question

正如问题所述，他们无论如何都要复制/粘贴范围并复制隐藏的行？

目前我使用

xlWB.Sheets("Template").Range(Template_RFull_Inc).Copy
With ThisWorkbook.Sheets(Test_Name).Range("A11")
    Application.DisplayAlerts = False
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteValues, , False, False
    .PasteSpecial xlPasteFormulas, , False, False
    .PasteSpecial xlPasteFormats, , False, False
    .PasteSpecial xlPasteValidation
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
End With

他们的代码是否像

.PasteSpecial xlHiddenRows

如果这个太长时间缠绕或者会引起头痛，我确实有一个解决方法

Answer 1

您可以使用 .Paste 而不是 .PasteSpecial来实现目标。这是直接来自宏记录器：

$scope.unflipCardsTimeout(k, i);

注：

我们选择了整行而不是这些行中的所有单元格。

Answer 2

如果要在副本（Test_Name）中隐藏相同的行，则必须在复制后运行其他内容。关闭的东西应该有用。

Dim TopRowOriginal As Long
Dim TopRowCopy As Long
TopRowOriginal = Template_RFull_Inc.Row
TopRowCopy = ThisWorkbook.Sheets(Test_Name).Range("A11").Row
Dim r As Range
For Each r In Range(Template_RFull_Inc).Rows
    ThisWorkbook.Sheets(Test_Name).Rows(r.Row + TopRowCopy - 1).EntireRow.Hidden = r.EntireRow.Hidden
Next r

Excel复制范围以保留隐藏的行

2 个答案: