如何在工作表的Excel表中正确应用End(xlToRight)方法？

• 代码预期逻辑：遍历新模板A列，在旧模板A列中查找匹配值，将旧模板中匹配到的对应行复制粘贴到新模板中，使用的模板均为标准Excel表。
• 需求：复制行数据时仅选中该行存在有效数据的区域，不选择复制整行，避免表格区域过度扩展。
• 运行异常：执行.End(xlToRight)方法时，调试器显示定位到列号为-4161的位置，无法正确获取有效数据范围。

原问题代码如下：

Sub copyrows()
Dim i As Integer, searchedrow As Integer, searchheader As Object

For i = 1 To 13

    Set searchheader = Sheets("New Input Template").Cells(i, 1)

    searchedrow = 0
    On Error Resume Next
    searchedrow = Sheets("Old Input Template").Columns(1).Find(what:=searchheader.Value, lookat:=xlWhole).Row
    On Error GoTo 0

    If searchedrow <> 0 And Cells(searchedrow, 1).Value <> "" Then
    
        Sheets("Old Input Template").Range(Cells(searchedrow, 1), Cells(searchedrow, 1).End(xlToRight)).Copy Destination:=Sheets("New Input Template").Cells(i, 1)
    
    End If

Next i

End Sub

相关问题截图：

• 调试器显示的-4161是Excel内置常量xlToRight的枚举值，出现异常定位的核心原因是：如果目标行除A列单元格外，右侧所有单元格均为空，.End(xlToRight)会直接跳转到工作表最右侧列（Excel 2007及以后版本为第16384列，即XFD列），此时获取的范围会覆盖从A列到表尾的整行区域，完全不符合仅复制有效数据的需求。
• 原代码存在跨表引用漏洞：Range()、Cells()方法未明确指定所属工作表时，默认会读取当前活动工作表的单元格，跨工作表操作时极易出现引用错位，导致运行结果不符合预期。

Sub copyrows()
    Dim i As Long, searchedrow As Long, lastCol As Long
    Dim oldSht As Worksheet, newSht As Worksheet
    Dim searchheader As Range
    
    ' 提前绑定工作表对象，避免活动表变动导致引用错误
    Set oldSht = ThisWorkbook.Sheets("Old Input Template")
    Set newSht = ThisWorkbook.Sheets("New Input Template")
    
    For i = 1 To 13
        Set searchheader = newSht.Cells(i, 1)
        searchedrow = 0
        
        On Error Resume Next
        searchedrow = oldSht.Columns(1).Find(what:=searchheader.Value, lookat:=xlWhole).Row
        On Error GoTo 0
        
        If searchedrow <> 0 And oldSht.Cells(searchedrow, 1).Value <> "" Then
            ' 从行最右端向左查找最后一个非空单元格，精准定位有效数据边界
            lastCol = oldSht.Cells(searchedrow, oldSht.Columns.Count).End(xlToLeft).Column
            ' 所有单元格明确指定所属工作表，避免跨表引用错位
            oldSht.Range(oldSht.Cells(searchedrow, 1), oldSht.Cells(searchedrow, lastCol)).Copy _
                Destination:=newSht.Cells(i, 1)
        End If
    Next i
End Sub

• 调整变量声明：将行号变量类型从Integer改为Long，避免大行数场景下的数值溢出；将搜索对象声明为Range类型，匹配单元格对象的实际类型，减少隐式类型转换问题。
• 所有单元格、范围调用都明确绑定所属工作表，彻底消除活动表变动带来的引用错误。
• 替换有效区域定位逻辑：不再从A列向右查找边界，改为从工作表最右列向左定位最后一个非空单元格，精准锁定当前行有效数据的结束列，从根源上避免空行时跳转至表尾、选中整行的问题。
• 复制范围严格限定在A列至有效数据结束列之间，不会复制多余空单元格，不会造成新模板表格区域过度扩展。

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