基于表头在工作表间移动数据：VBA代码编译错误求助

先直接解决你遇到的编译错误：你的循环结束语句写的是Next I，但循环变量定义的是小写的i——VBA虽然对大小写不敏感，但要求循环变量的拼写（包括大小写）前后一致，这就是导致编译失败的直接原因，把Next I改成Next i就能解决这个编译问题。

不过除了这个编译错误，代码里还有几个潜在的运行时问题，我一起帮你修正，避免后续执行时出错：

• 问题1：未限定工作表范围
  你写的[A1:AW1]和Columns(j)没有绑定到With ThisWorkbook.Worksheets("Sheet1")的上下文，会默认引用当前活动工作表，而不是你指定的Sheet1。需要加上前缀.，改成.Range("A1:AW1")和.Columns(j)。

• 问题2：未处理Find方法找不到列头的情况
  如果Find方法在指定范围内找不到你定义的列名（比如拼写错误、列头不存在），会返回Nothing，这时直接调用.Column会触发运行时错误。需要先判断是否找到目标列头。

• 问题3：变量定义与使用的细节优化
  用Range对象存储Find的返回值，比直接存列号更安全，能避免空对象调用的错误。

修正后的完整代码 #

Options Explicit
Sub tester()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim ar As Variant
    Dim i As Integer
    Dim foundCol As Range '用Range对象存储Find结果，更安全
    
    '先明确定义源工作表和目标工作表，代码更清晰
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ar = Array("Header1", "Header2") 'define header names to move
    
    For i = 0 To UBound(ar)
        '在源工作表的第一行查找指定列头，限定查找范围和匹配方式
        Set foundCol = wsSource.Range("A1:AW1").Find( _
            What:=ar(i), _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            MatchCase:=False)
            
        '判断是否找到列头
        If Not foundCol Is Nothing Then
            '复制找到的整列到目标工作表的对应位置
            wsSource.Columns(foundCol.Column).Copy wsTarget.Cells(1, i + 1)
        Else
            '如果找不到，弹出提示（可选，根据需要调整）
            MsgBox "未找到列头：" & ar(i), vbExclamation
        End If
    Next i '这里修正了大小写问题
End Sub

代码说明 #

1. 把源和目标工作表单独定义为变量，代码可读性更强，也避免了With块的上下文混淆。
2. 给Find方法添加了明确的参数（比如LookAt:=xlWhole确保完全匹配列头，避免部分匹配），让查找逻辑更精准。
3. 增加了找不到列头的判断和提示，避免运行时崩溃。
4. 修正了循环结束语句的大小写问题，彻底解决编译错误。

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