代码正在工作，现在我得到错误1004

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

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

帮帮我

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

你忘了提到一个关键的信息，导致一个简单的解决scheme。 你得到哪个错误是重要的 – 但是同等或者更重要的是错误发生的地方，比如哪一行代码被打断。

 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