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

Question

I keep getting the error, "Select Method of Range Class Failed" and unexpected results from Rows("2:2").Insert

Code below

Worksheets("Sheet3").Select

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

Range("D4").Select

First the new row is added to Sheet 1 not sheet 3 and then Range cannot be selected 1004 error. I have used this exact script to select other worksheets and ranges without an issue. I can provide the full file and code for anyone who can help

Answer 1

Avoid the use of .Select . You may want to see This

Also ensure that your worksheet is unprotected.

Is this what you are trying?

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

Answer 2

The code below works, define the Sheet, and not using Select (the first time):

Dim sht3 As Worksheet

Set sht3 = ThisWorkbook.Sheets("Sheet3")

sht3.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
sht3.Range("D4").Select

Answer 3

When you are using select you'll always ensure that the particular sheet is active. If not activate it using activate property. Below is the code that does the work

Worksheets("Sheet3").Activate

Worksheets("Sheet3").Select

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

Range("D4").Select