전체복사, 값만복사, 수식만복사, 서식만복사

전체복사, 값만복사, 수식만복사, 서식만복사

 

전체복사하여 붙여넣기

Sub copyall()
    Range("O6").CurrentRegion.Clear

    'O6에 연속으로 붙어있는 영역의 내용을 삭제한다.

    Range("F6:L11").Copy

    'F6:L11 영역을 복사한다.
    Range("O6").PasteSpecial
    'O6을 기준으로 전체붙여넣기한다.      
    Range("F6").Select
    'F6셀을 선택한다.
    Application.CutCopyMode = False
    '복사한영역 표시 안함.
End Sub

값만 복사하여 붙여넣기
Sub copyvalues()
 Range("O6").CurrentRegion.Clear
    
    Range("F6").CurrentRegion.Copy
    Range("O6").PasteSpecial xlPasteValues
    Range("F6").Select
    
    Application.CutCopyMode = False

End Sub

 

수식만 복사하여 붙여넣기
Sub copyformulas()
    Range("K3").CurrentRegion.Copy
    Range("K7:L" & Range("B2")).PasteSpecial xlPasteFormulas
    Application.CutCopyMode = False
 End Sub

 

서식만 복사하여 붙여넣기
Sub copyformats()
    Range("F3:L3").Copy
    Range("F7:L" & Range("B2")).PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
 End Sub


Sub copyHW()
 Dim i As Long
 Dim rng As Long
 rng = Range("E100").End(xlUp).Row
 For i = 7 To rng
    If Range("F" & i) = "남" Then
    Range("J2:K2").Copy
    Range("J" & i & ":K" & i).PasteSpecial
    Range("E2:K2").Copy
    Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats
    Else
    Range("J3:K3").Copy
    Range("J" & i & ":K" & i).PasteSpecial
    Range("E3:K3").Copy
    Range("E" & i & ":K" & i).PasteSpecial xlPasteFormats
    End If
 Next i
    Application.CutCopyMode = False
End Sub