엑셀VBA 밑에 값으로 채우기

 

 

 

 

 

 

 

 

 

Sub tset()
    ' 밑에 항목이 없으면 위에 항목을 붙여 넣는 코드
    Dim m As Workbook
    Dim ms As Worksheet
    
    Set m = Workbooks(ThisWorkbook.Name)
    Set ms = m.Sheets("Sheet1 (2)")
    
    Dim rng As Range
    Dim rn As Range
    
    ' 범위 C12부터 C의 마지막 로우 까지
    Set rng = ms.Range("C12:C" & ms.Cells(Rows.Count, "c").End(3).Row)
    
    For Each rn In rng
        
        If rn.Offset(1) = "" Then
            rn.Offset(1) = rn
            rn.Offset(1, 1) = rn.Offset(0, 1)
        End If
    Next

End Sub