VBA将某一行数据复制到另一行

Sub CopyRow()
Dim sourceRow As Integer
Dim targetRow As Integer

'设置源行和目标行的行号
sourceRow = 1
targetRow = 2

'复制源行到目标行
Rows(sourceRow).Copy Destination:=Rows(targetRow)
End Sub

上面的代码将第1行的数据复制到第2行。如果需要复制其他行，只需要修改源行和目标行的行号即可。

相关问题

vba 将某一行数据复制到另一个表格中后在原表格删除这一行

您可以使用以下代码将某一行数据从一个表格复制到另一个表格，并在原表格中删除该行：

Sub CopyAndDelete()
    ' 定义变量
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRow As Range
    Dim targetRow As Range
    
    ' 设置源表格和目标表格
    Set sourceSheet = Worksheets("原表格名称")
    Set targetSheet = Worksheets("目标表格名称")
    
    ' 获取要复制的行
    Set sourceRow = sourceSheet.Range("A1").EntireRow ' 假设要复制第一行
    
    ' 将行复制到目标表格
    Set targetRow = targetSheet.Rows(targetSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1)
    sourceRow.Copy targetRow
    
    ' 删除原表格中的行
    sourceRow.Delete
End Sub

在代码中，您需要将“原表格名称”和“目标表格名称”替换为您实际使用的表格名称，以及修改要复制的行号。此外，您还可以根据需要修改复制和删除的范围。

VBA 从一个Excel文件复制一行数据到另一个Excel文件

以下是使用 VBA 从一个 Excel 文件复制一行数据到另一个 Excel 文件的示例代码：

Sub CopyRowToAnotherWorkbook()
    Dim sourceWB As Workbook
    Dim destWB As Workbook
    Dim sourceWS As Worksheet
    Dim destWS As Worksheet
    Dim sourceRow As Range
    Dim destRow As Range
    
    '打开源Excel文件
    Set sourceWB = Workbooks.Open("C:\source.xlsx")
    Set sourceWS = sourceWB.Worksheets("Sheet1")
    
    '打开目标Excel文件
    Set destWB = Workbooks.Open("C:\destination.xlsx")
    Set destWS = destWB.Worksheets("Sheet1")
    
    '选择要复制的行
    Set sourceRow = sourceWS.Range("A2:C2") '例如，复制第2行的A列到C列
    
    '将行复制到目标Excel文件的下一行
    Set destRow = destWS.Range("A" & destWS.Cells(Rows.Count, "A").End(xlUp).Row + 1)
    sourceRow.Copy destRow
    
    '关闭文件
    sourceWB.Close SaveChanges:=False
    destWB.Close SaveChanges:=True
    
    '释放对象
    Set sourceRow = Nothing
    Set destRow = Nothing
    Set sourceWS = Nothing
    Set destWS = Nothing
    Set sourceWB = Nothing
    Set destWB = Nothing
End Sub

在上面的代码中，我们首先打开源 Excel 文件和目标 Excel 文件，并选择要复制的行（在这个例子中是第二行的 A 列到 C 列）。然后将行复制到目标 Excel 文件的下一行，最后关闭文件并释放对象。请注意，如果您要复制多行，则需要在目标 Excel 文件中选择要复制的下一行。