基于工作表名称条件的跨工作簿VBA数据拷贝问题求助

1. 源工作表遍历循环的正确性检查 #

• 核心要确认循环是否覆盖了源工作簿的所有目标工作表，正确的遍历写法应该是：

  Dim wsSource As Worksheet
  For Each wsSource In Workbooks("源工作簿名称.xlsx").Worksheets
      ' 后续名称匹配与拷贝逻辑
  Next wsSource
  

• 重点排查：
  • 是否用了明确的工作簿引用（别用ActiveWorkbook这种不稳定的对象）
  • 循环里有没有错误的Exit For导致提前终止
  • 如果需要处理隐藏工作表，要去掉If wsSource.Visible = xlVisible Then这类过滤判断

2. Select Case的正确性判断（无需替换为If Then） #

Select Case完全适配按工作表名称匹配的场景，比多分支If Then更清晰，正确写法示例：

Select Case wsSource.Name
    Case "apple"
        ' apple工作表的特定列序拷贝逻辑
    Case "banana"
        ' banana工作表的另一列序拷贝逻辑
    Case Else
        ' 可选：处理未匹配的其他工作表
End Select

• 重点排查：
  • 工作表名称是否完全匹配（VBA默认区分大小写，要忽略的话可以用UCase(wsSource.Name)统一转大写）
  • Case语句有没有语法错误（比如多余引号）
  • 每个分支内的列映射逻辑是否对应正确

3. LastRow获取与数据追加的正确性 #

要实现数据依次追加，必须精准获取目标工作表的最后非空行，避免覆盖或留空，推荐两种可靠写法：
写法1（针对特定列，比如A列，避免空行误判）：

Dim lastRowTarget As Long
lastRowTarget = Workbooks("目标工作簿名称.xlsx").Worksheets("目标表名").Cells(Rows.Count, "A").End(xlUp).Row + 1 ' +1表示从下一行开始写入

写法2（针对整个工作表的最后使用行）：

lastRowTarget = Workbooks("目标工作簿名称.xlsx").Worksheets("目标表名").UsedRange.Rows.Count + 1

• 重点排查：
  • 是否指定了正确的目标工作表对象
  • 获取后有没有加+1（否则会覆盖最后一行已有数据）
  • 目标表是否存在合并单元格（合并单元格会导致End(xlUp)判断错误，需提前拆分）

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