Vba 代码正在运行，现在出现错误1004

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

我的代码没有任何问题，但是我不得不删除我正在将结果写入RawData的工作表，我创建了一个同名的新工作表，现在我遇到了这个错误。我尝试用不同的名称创建一个新的工作表，并更改宏中的所有引用，但仍然出现此错误。尝试创建一个新文件并将所有内容复制到该文件中，但仍保持不变。让其他具有相同代码的文件工作，所以我不知道现在该怎么办。已尝试添加。激活，但什么也没有

帮助

---

你忘了提到一个关键的信息，它会导致一个简单的解决方案。哪一个错误是重要的，但同样重要或更重要的是错误发生的位置，例如，代码在哪一行中断

End(xlDown).Offset(1, 0)

带我到宇宙的尽头。然后再往前走一步-

---

作为俱乐部的一员，这是一个孤独的俱乐部。

你忘了提到一条重要的信息，而这条信息导致了一个简单的解决方案。哪一个错误是重要的，但同样重要或更重要的是错误发生的位置，例如，代码在哪一行中断

End(xlDown).Offset(1, 0)

带我到宇宙的尽头。然后再往前走一步-

---

作为俱乐部的一员，这是一个孤独的俱乐部。最好从底部开始寻找第一个空白行：

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

---

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

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

---

---

你试过重新启动你的电脑吗？我知道这听起来很迟钝，但有时VBA环境会被破坏。无法在我的手机上进行测试，但我认为如果B列为空，偏移量将从工作表的底部查看。如果您忽略了代码中的错误，它可能会停止。重新启动是一个经常被忽略的简单步骤。DarrenBartrup-Cook说，重启电脑可以修复从手机到玩具、从人际关系到电视情景喜剧的一切问题，在一个完全空白的列中，或者单元格B1是列中唯一的值时，EndxlDown将使您位于工作表的底部行，然后您尝试选择该行下面的一行-这将给出您得到的错误。尝试重置计算机，结果仍然是一样的。我不知道如何排除故障，因为它以前工作过，我所做的只是删除工作表创建一个新的工作表并将其命名为相同的工作表，所以我不知道它是如何损坏的您是否尝试重新启动计算机？我知道这听起来很迟钝，但有时VBA环境会被破坏。无法在我的手机上进行测试，但我认为如果B列为空，偏移量将从工作表的底部查看。如果您忽略了代码中的错误，它可能会停止。重新启动是一个经常被忽略的简单步骤。DarrenBartrup-Cook说，重启电脑可以修复从手机到玩具、从人际关系到电视情景喜剧的一切问题，在一个完全空白的列中，或者单元格B1是列中唯一的值时，EndxlDown将使您位于工作表的底部行，然后您尝试选择该行下面的一行-这将给出您得到的错误。尝试重置计算机，结果仍然是一样的。我不知道如何排除故障，因为它以前工作过，我所做的只是删除工作表创建一个新的工作表并将其命名为相同的工作表，所以我不知道它是如何损坏的。该解决方案很可能是OP“创建了一个新的工作表”。那么？新床单也有结尾！UH我同意你的意见。新工作表可能没有任何信息。顺便说一句，也许你可以建议Rangeb&ROWS.COUNT.EndxlUP.Offset1，0。选择p.S。我想到了巴斯光年的名言，无限远，甚至更远@CamiloQuevedo-xLup从最下面一行开始，向上看，然后向下移动一个单元格。xLdown从顶部开始向下看。这个解决方案很可能是OP“创建了一个新的工作表”。那么呢？新床单也有结尾！UH我同意你的意见。新工作表可能没有任何信息。顺便说一句，也许你可以建议Rangeb&ROWS.COUNT.EndxlUP.Offset1，0。选择p.S。我想到了巴斯光年的名言，无限远，甚至更远@CamiloQuevedo-xLup从最下面一行开始，向上看，然后向下移动一个单元格。xLdown从顶部开始向下看。