Как вставить новый период после определенной строки

Question

Можете ли вы, пожалуйста, дайте мне знать, как я могу
1- вставить новую строку скажем 3 именно после существующей строки 2
2- Копирование строк от 1 до 2
3- и, наконец, удалить 1

Причина, по которой я должен сделать это, у меня есть выпадающее меню, выглядящее вверх (которое я не знаю, что они называют в excel) в строке 1, и я не могу загрузить файл например, в программное обеспечение ГИС, поэтому мне нужно избавиться от этого, однако мне все еще нужно сохранить заголовки заголовков для дальнейших ссылок.

благодаря Update

Sub inserter() 
' 
' inserter Macro 
' 

' 
    Rows("3:3").Select 
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Rows("2:2").Select 
    Selection.Copy 
    Rows("3:3").Select 
    ActiveSheet.Paste 
    Rows("2:2").Select 
    Application.CutCopyMode = False 
    Selection.Delete Shift:=xlUp 
End Sub 

Answer 1

Um не точно. Если вы заметили эту строку

.Rows(1).Copy .Rows(2) 

Это следует за тем, что у вас было в пункте 2, и это не так, как вы записали.

Макро-диктофон предоставляет все виды дополнительного кода. Код, который вы дали можно записать в виде

Private Sub Sample() 
    Dim ws As Worksheet 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     .Rows(3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
     .Rows(1).Copy .Rows(2) 
     .Rows(1).Delete Shift:=xlUp 
    End With 
End Sub 

Вы также можете увидеть THIS

Answer 2

Проверьте этот код:

Rows("3:3").Select 
Selection.Delete Shift:=xlUp 
Range("B4").Select 
ActiveCell.FormulaR1C1 = "hello" 
Range("B4").Select 
Selection.Copy 
Range("C4").Select 
ActiveSheet.Paste 
Rows("4:4").Select 
Application.CutCopyMode = False 
Selection.Delete Shift:=xlUp 

, но лучше научиться сохранять макросы. Я имею в виду, я не имею в моей голове этого кода, каждый раз, когда мне нужна код, я просто сохранить его, кстати избежать .select, сделать что-то вроде этого, вместо:

Rows("3:3").Delete Shift:=xlUp 

Надеется, что это помогает