运行时错误'1004'：对象'_global'的方法'range'失败

Question

任何人都可以帮助解决此错误吗？ 它实际上可以在一台计算机上运行，​​但不能在其他计算机上运行

Dim Rango As Range, FilaFin As Long
Dim i As Long, x As Object
Application.ScreenUpdating = False
Sheet1.Select
FilaFin = Range("E6:E13").Offset(0, 4).End(xlDown).Row
Sheet1.Range("E6:E13").Copy
Sheet4.Select
FilaFin = Range("C1048576").End(xlUp).Row + 1
Range("C" & FilaFin).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, 
SkipBlanks _
        :=False, Transpose:=True
FilaFin = Range("E18:E25").Offset(0, 4).End(xlDown).Row

Answer 1

1048576行仅适用于Excel-2007及更高版本。

65536行可用于Excel-2003和更早版本。

这就是为什么

它实际上可以在一台计算机上运行，​​但不能在其他计算机上运行

---

硬编码行数是一个不好的做法。 使其动态：

Range(Cells(Rows.Count, 3),Cells(Rows.Count, 3)).End(xlUp).Row

Rows.Count返回总数。 与版本无关的行数。