代码正在运行，现在我得到错误1004

Question

我收到此错误“运行时错误1004应用程序定义或对象定义的错误”

我的代码没有问题，但我不得不删除我正在写结果的表（“RawData”），我创建了一个同名的新表，现在我收到了这个错误。我尝试创建一个具有不同名称的新工作表并更改宏中的所有引用，但它仍然给我这个错误。尝试创建一个新文件并将所有内容复制到它，仍然是相同的。让其他文件具有相同的代码，所以我现在不知道该怎么做。尝试添加。激活而没有。

救命

Sheets("CE").Select
    Range("d3:d8").Select
Selection.Copy
Sheets("RawData").Select
Range("b1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

Answer 1

您忘记提及导致简单解决方案的关键信息。你得到的哪个错误很重要 - 但是相同或更重要的是错误发生的地方，例如，哪一行是代码中断。

End(xlDown).Offset(1, 0)

“把我带到宇宙的尽头。再往前走一步。” :-)

---

成为一个孤独的俱乐部

Answer 2

最好从底部查找第一个空白行：

Sub Test()
    Sheets("CE").Range("d3:d8").Copy
    Sheets("RawData").Select
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True
End Sub