运行时错误＆＃39; 1004＆＃39;：方法＆＃39;范围＆＃39;对象＆＃39; _global＆＃39;失败

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返回总数。不管版本如何，都是行。