Excel VBA在我的一个子例程中选择工作表和范围不起作用

我不断从行（“2:2”）中得到错误，“Range类的Select方法失败”和意外结果。插入

代码如下

Worksheets("Sheet3").Select

Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove    

Range("D4").Select

---

首先将新行添加到第1页而不是第3页，然后无法选择范围1004错误。我使用这个脚本来选择其他工作表和范围，没有任何问题。我可以为任何可以帮助避免使用

的人提供完整的文件和代码。选择
。你可能想看看

还要确保您的工作表未受保护

这就是你想要的吗

Worksheets("Sheet3").Rows(2).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove    

避免使用
。选择
。你可能想看看

还要确保您的工作表未受保护

这就是你想要的吗

Worksheets("Sheet3").Rows(2).Insert Shift:=xlDown, _
CopyOrigin:=xlFormatFromLeftOrAbove    

下面的代码起作用，定义工作表，不使用
选择
（第一次）：

下面的代码起作用，定义工作表，不使用
选择
（第一次）：

使用“选择”时，您将始终确保特定图纸处于活动状态。如果没有，请使用activate属性激活它。下面是完成这项工作的代码

Worksheets("Sheet3").Activate

Worksheets("Sheet3").Select

Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("D4").Select

使用“选择”时，您将始终确保特定图纸处于活动状态。如果没有，请使用activate属性激活它。下面是完成这项工作的代码

Worksheets("Sheet3").Activate

Worksheets("Sheet3").Select

Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("D4").Select

请参阅。请参阅。我正在使用。选择，以便有一个永久的起点。在代码的后面部分，我使用了一个For下一个循环，用于I=1到myarraycount ActiveCell.Value=BidItemsName（I）ActiveCell.Offset（0，1）。Value=BidItems（I）ActiveCell.Offset（0，2）。Value=BidItemQuant（I）ActiveCell.Offset（0，3）.选择下一个您必须忽略的区域。请重新阅读我给你的链接：）我正在使用。选择此链接，以便我有一个永久的起点。在代码的后面部分，我使用了一个For下一个循环，用于I=1到myarraycount ActiveCell.Value=BidItemsName（I）ActiveCell.Offset（0，1）。Value=BidItems（I）ActiveCell.Offset（0，2）。Value=BidItemQuant（I）ActiveCell.Offset（0，3）.选择下一个您必须忽略的区域。请重新阅读我给您的链接：）我可以通过创建另一个子项（）并添加以下代码来避免错误：“代码”工作表（“Sheet3”）。激活工作表（“Sheet3”）。选择行（“2:2”）。选择选择。插入Shift:=xlDown，copyOrigin:=XLFormatFromRightorLow Range（“E2”）。SelectI可以通过创建另一个子项（）并添加以下代码来避免此错误：“代码”工作表（“Sheet3”）。激活工作表（“Sheet3”）。选择行（“2:2”）。选择选择。插入Shift:=xlDown，copyOrigin:=xlFormatFromRightOrBelow Range（“E2”）。选择当我使用在其他子项中提供的代码时（）没有问题，它只出现在我的一个段中。@BKruk那么您需要提供其余的代码，因此，我们可以看到您在哪里以及为什么会出现此错误。当我使用在其他子项（）中提供的代码时，没有问题，它只出现在我的一个段中。@BKruk然后您需要提供其余的代码，以便我们可以看到您在哪里以及为什么会出现此错误