왜이 Excel VBA 스크립트가 아래쪽으로 복사되고 마지막으로 선택한 셀까지 반복됩니까?

Question

왜 다음 빈 셀까지 다음 전체 셀까지 데이터를 복사 한 다음 해당 셀의 데이터를 가져 와서 다시 시작합니까?

Option Explicit 

Sub CopyDown() 

    Dim wsPOD As Worksheet 
    Dim lastrow 

    Set wsPOD = Sheets("PO Data") 

With wsPOD 
    lastrow = wsPOD.Range("F" & Rows.Count).End(xlUp).Row 
      wsPOD.Range("A2:D" & lastrow).Select 
      Selection.SpecialCells(xlCellTypeBlanks).Select 
      Selection.FormulaR1C1 = "=R[-1]C" 
    End With 
End Sub 

나는 스크립트의 대부분을 이해하지만 나는이 부분을 이해하지 않습니다

이

 Selection.SpecialCells(xlCellTypeBlanks).Select 
     Selection.FormulaR1C1 = "=R[-1]C" 

이 마지막 부분은 특히 나에게 횡설수설은, 누군가가 나이 제발 이해하는 데 도움이 의미를?

Answer 1

는 당신이

Sub CopyDown() 

    Dim wsPOD As Worksheet 
    Dim lastrow as long 
    Dim EmptyCells as range 

    Set wsPOD = Sheets("PO Data") 

With wsPOD 
    lastrow = .Range("F" & .Rows.Count).End(xlUp).Row 
      set EmptyCells = .Range("A2:D" & lastrow).SpecialCells(xlCellTypeBlanks) 
      EmptyCells.FormulaR1C1 = "=R[-1]C" 
    End With 
End Sub