如何在现有VBA代码中添加逻辑，将Overview表表头复制到新建工作表？

嘿，我来帮你搞定这个需求！你的核心问题是：当目标工作表不存在、需要新建时，同时把Overview表的表头行（A1:G1）也复制到新表里对吧？

先把你的代码补全并修改，重点看Else分支里新增的关键代码：

Sub CopyRows()
    Dim rngMyRange As Range, rngCell As Range
    Dim sht As Worksheet
    Dim LastRow As Long
    Dim SheetName As String
    
    With Worksheets("Overview")
        ' 适配所有Excel版本的行计数，替换原有的D65536
        Set rngMyRange = .Range(.Range("D2"), .Range("D" & .Rows.Count).End(xlUp))
        
        For Each rngCell In rngMyRange
            SheetName = rngCell.Value ' 假设D列存储的是目标工作表名称
            
            ' 检查目标工作表是否存在
            On Error Resume Next
            Set sht = ThisWorkbook.Worksheets(SheetName)
            On Error GoTo 0
            
            If Not sht Is Nothing Then
                ' 工作表已存在：复制当前行到目标表的最后一行下方
                LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row + 1
                .Range("A" & rngCell.Row & ":G" & rngCell.Row).Copy _
                    Destination:=sht.Range("A" & LastRow)
                Set sht = Nothing ' 重置变量，避免后续判断出错
            Else
                ' 工作表不存在：新建表 → 复制表头 → 复制当前行数据
                Set sht = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
                sht.Name = SheetName
                
                ' 新增代码：复制Overview的表头行到新表的A1位置
                .Range("A1:G1").Copy Destination:=sht.Range("A1")
                ' 可选：如果需要仅复制值和格式而非全部粘贴，可加这行（按需选择）
                ' sht.Range("A1:G1").PasteSpecial xlPasteValuesAndNumberFormats
                
                ' 复制当前行数据到新表的第2行（因为表头占了第1行）
                .Range("A" & rngCell.Row & ":G" & rngCell.Row).Copy _
                    Destination:=sht.Range("A2")
                Set sht = Nothing ' 重置变量
            End If
        Next rngCell
    End With
End Sub

关键修改点说明： #

• 在新建工作表的Else分支里，先执行表头复制：利用With Worksheets("Overview")的上下文，直接用.Range("A1:G1")引用表头范围，复制到新表的A1起始位置即可。
• 因为表头已经占据了新表的第1行，所以当前行的数据要复制到新表的第2行（sht.Range("A2")），避免覆盖表头。
• 额外优化了行计数的写法，替换D65536为D" & .Rows.Count，适配Excel 2007及以后版本的1048576行限制，避免在高版本Excel中遗漏数据。

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