VBA运行时错误'1004'：_Global对象Range方法失败及数据自动转移需求

首先，你的代码触发运行时错误'1004'的核心原因是变量名不匹配：你声明的循环变量是row，但代码里却用了未定义的i，VBA无法识别这个未声明的变量，导致Range方法调用失败。另外还有几处小问题需要修正，比如拼写错误、不必要的工作表选择操作。

下面是修正并优化后的完整代码：

Sub TransferHtoE()
    Dim ws As Worksheet
    Dim row As Long
    
    ' 直接绑定工作表，避免Select操作（更高效且不易出错）
    Set ws = ThisWorkbook.Worksheets("102Tk")
    
    For row = 17 To 1000
        ' 检查H列单元格是否为文本类型
        If WorksheetFunction.IsText(ws.Range("H" & row)) Then
            ' 将H列值转移到E列
            ws.Range("E" & row).Value = ws.Range("H" & row).Value
            ' 清空H列对应单元格
            ws.Range("H" & row).ClearContents
        End If
    Next row
End Sub

关键修正与优化点： #

• 变量名统一：把代码里的i全部替换为声明好的row，解决未定义变量导致的Range调用失败问题。
• 移除不必要的Select：直接通过Set ws = ...绑定工作表，避免激活/选择工作表的操作，这是VBA高效编程的最佳实践，也能减少因工作表切换导致的错误。
• 修正拼写错误：把不完整的.valu补全为.Value（或者用.ClearContents更彻底地清空单元格内容）。
• 明确工作表引用：所有Range操作都加上ws.前缀，确保操作的是目标工作表的单元格，避免因当前激活工作表变化而出错。

如果需要实现当Sheet1的文本值进入102Tk的H列时自动触发转移，可以把上述代码放到102Tk工作表的Worksheet_Change事件中，这样只要H列有内容输入，就会自动执行转移：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = Me ' 当前工作表即102Tk
    
    ' 仅处理H列第17到1000行的单元格变化
    If Not Intersect(Target, ws.Range("H17:H1000")) Is Nothing Then
        If WorksheetFunction.IsText(Target) Then
            ws.Range("E" & Target.Row).Value = Target.Value
            Target.ClearContents
        End If
    End If
End Sub

这段事件代码需要放在102Tk工作表的代码模块中（右键工作表标签→查看代码→粘贴进去），就能实现实时自动转移的需求。

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