我需要将某一行中的一些单元格复制到另一个 Excel 表中。目标表中的单元格不在同一行。
起始行正在改变,这就是我的想法如下的原因:运行宏,选择起始行并让宏将所有必需的单元格复制到另一个 Excel 文件。
这可能吗? 怎么做?
答案1
以下是将整行复制到另一张工作表的几个不同示例。您可以根据自己的需要进行调整。您没有提供太多细节,但关键似乎在于找出您要复制的行以及要将其粘贴到哪里。您必须提供数据的详细信息,我们才能帮助您解决此问题。
Sub CopyToAnotherSheet()
Dim wsSource As Worksheet
Dim wsTarget As Worksheet
Set wsSource = Worksheets("Sheet1")
Set wsTarget = Worksheets("Sheet2")
'Copy the last row to the last row
wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(wsTarget.UsedRange.Rows.Count + 1)
'Copy the last row to a new first row
wsTarget.Rows(1).Insert xlDown
wsSource.Rows(wsSource.UsedRange.Rows.Count).Copy wsTarget.Rows(1)
'Copy a particular row to another particular row
wsTarget.Rows(7).Insert xlDown
wsSource.Rows(3).Copy wsTarget.Rows(7)
End Sub