VBA代码MyCopy10正常但MyCopy100无法复制Actual Email最后一行数据求助

嘿，我来帮你捋捋这个问题！你提到MyCopy10能正常运行，但MyCopy100没法复制「Actual Email」工作表的最后一行，结合你给出的MyCopy10代码片段，我整理了几个最可能的问题点，以及对应的排查和修复方法：

1. 最后一行的判断逻辑出错 #

你在MyCopy10里应该是通过某一列（比如A列）来判断最后一行的，但如果MyCopy100里：

• 误引用了其他工作表的行计数（比如还是用了Sheets("Eamil-10")的Rows.Count）
• 选择的判断列（比如A列）在「Actual Email」里最后一行是空的

都会导致拿到错误的行号。建议明确指定工作表对象，并选一个肯定有数据的列来判断：

Dim wsActual As Worksheet
Set wsActual = ThisWorkbook.Sheets("Actual Email")
' 用A列判断最后一行（如果A列可能为空，换一个必然有数据的列，比如B列）
lastRow = wsActual.Cells(wsActual.Rows.Count, "A").End(xlUp).Row

还可以加个调试弹窗确认行号是否正确：

MsgBox "Actual Email最后一行行号：" & lastRow & "，内容：" & wsActual.Cells(lastRow, 1).Value

2. 依赖工作表激活导致的引用错误 #

MyCopy10里用了Sheets("Eamil-10").Activate，但如果MyCopy100里没有先激活「Actual Email」，或者后续代码用了未指定工作表的Range/Rows，就会默认操作当前激活的工作表，而非目标表。

强烈建议避免使用Activate/Select，直接通过工作表对象引用单元格，这样更稳定：

' 错误写法（依赖激活状态）
Range("A" & lastRow).Copy
' 正确写法（明确指定工作表）
wsActual.Range("A" & lastRow).Copy

3. 复制范围或目标位置的逻辑错误 #

如果你的复制逻辑是针对列数组（像MyCopy10那样），要检查MyCopy100里的列数组是否包含了「Actual Email」最后一行有数据的列；如果是复制整行，要确认复制的范围是wsActual.Rows(lastRow)，而非其他错误范围。

另外，目标位置的判断也要注意，比如粘贴到目标表时，要避免覆盖已有数据：

' 示例：粘贴到目标表的对应列下一行
Dim wsTarget As Worksheet
Set wsTarget = ThisWorkbook.Sheets("目标工作表")
wsActual.Rows(lastRow).Copy Destination:=wsTarget.Range("A" & wsTarget.Rows.Count).End(xlUp).Offset(1, 0)

修正后的MyCopy100示例代码 #

这里给你一个更健壮的版本参考：

Sub MyCopy100()
    Dim myCols As Variant
    Dim lastRow As Long
    Dim c As Long
    Dim wsActual As Worksheet
    Dim wsTarget As Worksheet
    
    ' 初始化工作表对象
    Set wsActual = ThisWorkbook.Sheets("Actual Email")
    Set wsTarget = ThisWorkbook.Sheets("你的目标工作表") ' 替换成实际目标表名
    
    ' 设置需要复制的列（根据你的需求调整）
    myCols = Array("A", "B", "C", "D")
    
    ' 获取Actual Email的最后一行（用A列判断，按需替换）
    lastRow = wsActual.Cells(wsActual.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制指定列到目标表
    For c = LBound(myCols) To UBound(myCols)
        ' 复制当前列的最后一行到目标列的下一行
        wsActual.Range(myCols(c) & lastRow).Copy _
            Destination:=wsTarget.Range(myCols(c) & wsTarget.Rows.Count).End(xlUp).Offset(1, 0)
    Next c
    
    ' 如果需要复制整行，替换上面的循环为：
    ' wsActual.Rows(lastRow).Copy Destination:=wsTarget.Range("A" & wsTarget.Rows.Count).End(xlUp).Offset(1, 0)
End Sub

调试小技巧：按F8逐行运行代码，观察lastRow等变量的取值，能快速定位哪一步出了问题~

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