[기초방] VBA 100제 #52 [ 민원인 서식변경 ]

민원인 서식을 변경하는 문제이다. 줄바꿈인 chr(10) 과 Replace를 이해하느냐의 문제이다.

Option Explicit

Sub 서식명변경하기()

    Dim rngAll As Range: Set rngAll = [c8:c13]
    
    With rngAll
    
        .Copy [g8]
       
        .Offset(, 4).Replace " (", Chr(10) & "(", xlPart                '= 기초방 52
        
        .Offset(, 4).Copy [k8]
      
        .Offset(, 4).Offset(, 4).Replace Chr(10) & "(", " (", xlPart    '= 기초방 52-1
        
        .EntireRow.AutoFit                                              '= 자동 열높이
        
    End With
            
End Sub

Sub 모두지우기()

    Dim rngAll As Range: Set rngAll = Range([g8:g13], [k8:k13])
    rngAll.ClearContents

End Sub

기초방52.xlsm

0.02MB

 

문제 난이도가 그리 높지 않으니, 한번 손코딩을 해보기를 추천한다.