☰

将整行复制粘贴到另一张表（需要更快的方法）

tag-icon • tag-icon microsoft-excel microsoft-excel-2016
将整行复制粘贴到另一张表（需要更快的方法）

有没有更快的方法将整行从 Sheets（“S”）复制到 Sheets（“Database”）？“S”有公式/源。“Database”只有值/目标。我的代码如下，但耗时太长：

Sub CopyPasteRow()

        Sheets("S").Rows("8:8").Copy
        With Sheets("Database").Rows(r & ":" & r)
          .PasteSpecial xlPasteValues
          .PasteSpecial xlPasteFormats
        Application.CutCopyMode = False
        End With

End Sub

相关内容