求助：修改Excel宏以复制指定单元格区域A2:HD2至主工作簿

没问题，我帮你把宏代码调整成只复制A2:HD2这个特定区域，而不是整行。首先我先假设你当前的宏代码大概是类似下面这样的（如果和你的实际代码有出入，对应调整关键部分就好）：

原代码（复制整行版本） #

Sub CopyEntireRowToMaster()
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim destWB As Workbook
    Dim destWS As Worksheet
    Dim nextEmptyRow As Long
    
    ' 替换成你的源工作簿和工作表名称
    Set sourceWB = Workbooks("你的源工作簿名称.xlsx")
    Set sourceWS = sourceWB.Worksheets("源工作表名称")
    
    ' 替换成你的主工作簿和工作表名称
    Set destWB = Workbooks("主工作簿名称.xlsx")
    Set destWS = destWB.Worksheets("主工作表名称")
    
    ' 找到主工作表的下一个空行
    nextEmptyRow = destWS.Cells(destWS.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 复制整行2到目标位置
    sourceWS.Rows(2).Copy destWS.Cells(nextEmptyRow, "A")
End Sub

修改后的代码（仅复制A2:HD2区域） #

只需要改动复制整行的那一行代码，换成指定区域Range("A2:HD2")即可，其他逻辑保持不变：

Sub CopySpecificRangeToMaster()
    Dim sourceWB As Workbook
    Dim sourceWS As Worksheet
    Dim destWB As Workbook
    Dim destWS As Worksheet
    Dim nextEmptyRow As Long
    
    ' 替换成你的源工作簿和工作表名称
    Set sourceWB = Workbooks("你的源工作簿名称.xlsx")
    Set sourceWS = sourceWB.Worksheets("源工作表名称")
    
    ' 替换成你的主工作簿和工作表名称
    Set destWB = Workbooks("主工作簿名称.xlsx")
    Set destWS = destWB.Worksheets("主工作表名称")
    
    ' 找到主工作表的下一个空行
    nextEmptyRow = destWS.Cells(destWS.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 关键修改：仅复制A2:HD2区域到目标位置
    sourceWS.Range("A2:HD2").Copy destWS.Cells(nextEmptyRow, "A")
End Sub

额外说明 #

• 如果只需要复制单元格的值，不需要格式，可以把最后一行复制代码改成：

  sourceWS.Range("A2:HD2").Copy
  destWS.Cells(nextEmptyRow, "A").PasteSpecial xlPasteValues
  Application.CutCopyMode = False ' 清除剪贴板，避免弹窗提示
  

• 记得把代码里的工作簿、工作表名称替换成你实际使用的名称哦。

内容的提问来源于stack exchange，提问作者CaitlinMc1115