Openpyxl按单元格值复制行数据至指定工作表第2行问题

核心问题修正 #

你当前代码的问题在于直接将源表行粘贴到目标表相同行号，而非从目标表第2行开始连续填充。要解决这个问题，需要为每个目标表单独维护一个「当前粘贴行号」变量，初始设为2，每完成一行复制就递增该变量，确保内容从第2行开始连续排列，同时避开表头的公式列。

修改后代码示例 #

假设源表为Sheet1，以下是适配需求的VBA代码：

Sub CopyRowsByState()
    Dim wsSource As Worksheet
    Dim wsTargetGA As Worksheet, wsTargetTX As Worksheet
    Dim lastRowSource As Long
    Dim i As Long
    Dim nextRowGA As Long, nextRowTX As Long
    
    ' 绑定工作表对象
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTargetGA = ThisWorkbook.Worksheets("Sheet2") ' Georgia对应目标表
    Set wsTargetTX = ThisWorkbook.Worksheets("Sheet3") ' Texas对应目标表
    
    ' 初始化目标表起始粘贴行（第2行）
    nextRowGA = 2
    nextRowTX = 2
    
    ' 获取源表数据最后一行行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历源表数据行（从第2行开始，假设源表第1行为表头）
    For i = 2 To lastRowSource
        Select Case wsSource.Cells(i, "A").Value
            Case "Georgia"
                ' 复制源表行，仅粘贴值和格式（避免覆盖目标表公式）
                wsSource.Rows(i).Copy
                wsTargetGA.Rows(nextRowGA).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                wsTargetGA.Rows(nextRowGA).PasteSpecial Paste:=xlPasteFormats
                nextRowGA = nextRowGA + 1 ' 更新下一行粘贴位置
            Case "Texas"
                wsSource.Rows(i).Copy
                wsTargetTX.Rows(nextRowTX).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
                wsTargetTX.Rows(nextRowTX).PasteSpecial Paste:=xlPasteFormats
                nextRowTX = nextRowTX + 1
            ' 可继续添加其他州的匹配分支
        End Select
    Next i
    
    ' 清除剪贴板，避免弹窗提示
    Application.CutCopyMode = False
    MsgBox "数据复制完成！"
End Sub

关键细节说明 #

• 粘贴策略：使用xlPasteValuesAndNumberFormats+xlPasteFormats的组合粘贴方式，既能保留源表的数据和格式，又不会覆盖目标表中已有的公式列（公式列将保持原样）。
• 行号控制：每个目标表独立维护nextRow变量，确保从第2行开始连续填充，不会出现前序空白行。
• 可选前置清理：如果需要每次复制前清空目标表第2行及以下的旧数据，可在初始化行号后添加（需根据实际公式列位置调整范围）：

  ' 清空Sheet2第2行及以下的非公式列数据和格式（假设公式在D列）
  wsTargetGA.Range("A2:C" & wsTargetGA.Rows.Count).ClearContents
  wsTargetGA.Range("A2:C" & wsTargetGA.Rows.Count).ClearFormats
  

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