跨Excel工作表VBA计算问题：数据复制错位求助

需求：

• 将「DAX NE3」工作表的A、B列复制到「Sheet4」的A、B列
• 将「DAX NE3」工作表的C-F列复制到「Sheet4」的D-G列
• 原数据中的空白单元格替换为0
• 在「Sheet4」的C列计算“份额占比”（公式为Cn=Bn/SUM(B:B)，n为对应行号）

遇到的问题：执行代码后复制粘贴的数据混乱，无法实现预期效果。

• 复制范围与目标范围不匹配：原代码第一次复制A27:C&m到Sheet4的A6:C&m+1，超出需求的A、B列范围；后续又重复复制B列到Sheet4的C列，导致数据覆盖混乱
• 变量m重复赋值：两次查找最后一行时复用m变量，第二次赋值会覆盖第一次结果，导致后续范围计算错误
• 插入操作破坏结构：使用Insert Shift:=xlShiftDown会让原有单元格下移，而非覆盖已清空的区域，造成数据错位
• 份额占比逻辑错误：仅取B6单个值作为分子，secondvalue的判断逻辑完全错误，无法正确计算B列总和
• 空白替换范围不全：仅替换B列空白，未覆盖所有复制过来的列（A、D-G）

Sub CopyData()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim lastRowSrc As Long
    Dim destStartRow As Long
    Dim totalRows As Long
    Dim sumRange As Range
    
    ' 定义工作表对象，减少重复调用
    Set srcSheet = ThisWorkbook.Worksheets("DAX NE3")
    Set destSheet = ThisWorkbook.Worksheets("Sheet4")
    destStartRow = 6 ' 目标数据起始行
    
    ' 清空Sheet4第6行及以下的原有数据
    destSheet.Rows(destStartRow & ":" & destSheet.Rows.Count).ClearContents
    
    ' 获取DAX NE3中A列最后一行的行号
    lastRowSrc = srcSheet.Range("A:A").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    ' 判断是否有有效数据（数据从27行开始）
    If lastRowSrc < 27 Then
        MsgBox "No data to copy!", vbExclamation
        Exit Sub
    End If
    totalRows = lastRowSrc - 26 ' 计算有效数据行数
    
    ' 复制A、B列到Sheet4的A、B列
    srcSheet.Range("A27:B" & lastRowSrc).Copy
    destSheet.Range("A" & destStartRow).PasteSpecial Paste:=xlPasteValues
    ' 复制C-F列到Sheet4的D-G列
    srcSheet.Range("C27:F" & lastRowSrc).Copy
    destSheet.Range("D" & destStartRow).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    
    ' 将所有复制区域的空白单元格替换为0
    With destSheet.Range("A" & destStartRow & ":G" & destStartRow + totalRows - 1)
        .Replace What:="", Replacement:="0", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False
    End With
    
    ' 计算份额占比：C列=对应行B列值/B列总和
    Set sumRange = destSheet.Range("B" & destStartRow & ":B" & destStartRow + totalRows - 1)
    destSheet.Range("C" & destStartRow & ":C" & destStartRow + totalRows - 1).Formula = _
        "=B" & destStartRow & "/SUM(" & sumRange.Address(False, False) & ")"
    
    ' 可选：将C列设置为百分比格式
    destSheet.Range("C" & destStartRow & ":C" & destStartRow + totalRows - 1).NumberFormat = "0.00%"
End Sub

• 明确对象引用：用srcSheet和destSheet变量固定工作表，提升代码可读性与效率
• 精准复制范围：严格匹配需求的列对应关系，避免多余列复制导致的覆盖
• 直接覆盖目标区域：清空后直接粘贴，不使用插入操作，确保数据位置准确
• 正确计算占比：使用SUM函数计算B列总和，批量设置公式实现每行的占比计算
• 全面替换空白：覆盖所有复制的列（A-G），统一处理空白单元格
• 边界校验：增加数据起始行判断，避免无有效数据时的错误

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