두 번째 빈 셀/행 찾기 및 붙여 넣기 시작

Question

저는 이미 많은 연구를 해왔고 해결책을 찾지 못했습니다. 나는 두 번째 빈 셀/행 (또는 다른 지정된 셀) 열을 찾고 그것을 (항상 다음 빈 셀/행 점프) 붙여 넣기 시작하려고합니다.

아래 코드를 발견했지만 열의 첫 번째 빈 행부터 붙여 넣기 시작합니다. offset 명령을 (2,0)으로 변경하면 두 번째 빈 행을 찾았으나 항상 콜라주 사이에 빈 셀을 붙여 넣기 시작하기 때문에 작동하지 않습니다. 그리고 나는 단지 두 번째 빈 셀을 시작 부분에서만 찾고 다음 빈 셀/행에 항상 붙여 넣기 시작합니다. 너희들이 나를 도와 줄 수 있니? 많은 감사드립니다! 예를 들어

, 나는 범위 G4를 복사 해요 : I4를 컬럼에 붙여하려고 G.

코드 :

Sub InsertButton() 
    Range("G4:I4").Copy Range("G" & Rows.Count).End(xlUp).Offset(1, 0) 
End Sub 

Answer 1

글쎄, 당신은이 작업을 수행 한 함수를 작성하려고하는 다른 것들. 함수를 호출하는 루프를 포함 할 수 있다면 도움이 될 것입니다. 각각의 작업을 수행하는 이와 같은 두 개의 함수를 사용하거나 수행 할 작업을 지시하는 함수에 매개 변수를 전달할 수 있습니다.

Sub InsertButton1() 
    Range("G4:I4").Copy Range("G" & Rows.Count).End(xlUp).Offset(1, 0) 
End Sub 
Sub InsertButton2() 
    Range("G4:I4").Copy Range("G" & Rows.Count).End(xlUp).Offset(2, 0) 
End Sub 

또는

Sub InsertButton(moveDownThisManyRows) 
    Range("G4:I4").Copy Range("G" & Rows.Count).End(xlUp).Offset(moveDownThisManyRows, 0) 
End Sub 

그리고 당신이 그것을 호출 할 때 말을

Sub doStuff() 
    Dim thisIsTheFirstTime As Boolean 
    thisIsTheFirstTime = True 
    For Each item In myStuff 
     If thisIsTheFirstTime Then 
      InsertButton2() 'or InsertButton(2) 
      thisIsTheFirstTime = False 
     Else 
      InsertButton1() 'or InsertButton(1) 
     End If 
    Next item 
End Sub