조건에 지정된 워크 시트 및 행에 셀 삽입

Question

VBA 코드에 대한 도움을 필사적으로 찾고 있습니다. 제 질문은 아주 자세하고 구체적입니다. 따라서 코드의 주석으로 사용하기로했습니다. 그러한 행위로 인해 제 질문이 모호하거나 모호한 경우 폴라 세제가 알려줍니다. 간단히 말해서 내 코드 cpoies 라인 ("FSR"통합 문서에서) fullfils 기준 및 특정 워크 시트 및 특정 행 ("FSR"워크 시트의 값 "P"및 "Q"열 주어진)에 붙여 넣습니다. 필자가 필요로하는 것은 내 코드가 복사 된 셀과 동일한 위치에 셀을 삽입하고 기존 셀을 아래로 이동하는 것입니다. 셀을 열 A : J에 삽입하고 워크 시트 ("FSR")의 "G"열의 값으로 주어진 행에 셀을 삽입해야합니다. 이 삽입은 물론 복사 및 붙여 넣기가 반복되어야하기 때문에이 새로운 코드를 FOR 루프에 배치해야합니다. 주석 질문 그리고 지금 코드 :

Sub FromSOF() 
Dim Worksheet As Worksheets 
startrow = Worksheets("GUTS").Cells(10, 1) 
endrow = Worksheets("GUTS").Cells(11, 1) 

For x = startrow To endrow 
    If Cells(x, "O").Value = "P" Then 
     Worksheets(Cells(x, "P").Value).Select 'And here is the porblem. This one and three consecutive lines are to insert cells and shift the existing cells down. The cells need to be inserted into the worksheet given by the value in column "P" in Worksheet("FSR") and into the row given by the column "Q" in Worksheet("FSR") 
     Range("A" & Worksheet("FSR").Cells(x, "P").Value, "J" & Worksheet("FSR").Cells(x, "P").Value).Select 
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
     Worksheets("FSR").Select 
     Range("E" & x, "H" & x).Copy 
     Worksheets(Cells(x, "P").Value).Cells(Cells(x, "Q").Value, "C").PasteSpecial xlPasteAll 
    End If 
    Next 
End Sub 

사전에 여러분 모두 감사합니다! 내가 인해 예의 가지 안부에 코드 내 투쟁이 끝날 수 있기를 바랍니다 아르투르 Rutkowski

Answer 1

코드는 아래를 작성하고 데이터를 복사합니다 :

'Create line 
Worksheets(Worksheets("FSR").Cells(x,"P").Value).Rows(Worksheets("FSR").Cells(x,"Q").Value).EntireRow.Insert 
'Copy data (without clipboard) 
Range("E" & x, "H" & x).Copy Worksheets(Worksheets("FSR").Cells(x,"P").Value).Cells(Worksheets("FSR").Cells(x,"Q").Value,1)