소개

Excel에서 만들어진 IP 주소 관리 테이블을 DB에 던지는데, 아래의 위 표와 같이 결합되어 있다면 여러가지 귀찮은 것

그래서 아래 표와 같이 통합 문서의 각 시트의 병합 셀을 해제하고 각 해제 된 셀에 동일한 값을 포함하는 매크로를 만들었습니다.

매크로 내용

Option Explicit

Sub releaseMerge()
    Dim ws As Worksheet
    Dim r As Range
    For Each ws In Worksheets
        For Each r In ws.UsedRange    
            If r.MergeCells = True Then
                Dim v As String, rc As String            
                ' 結合セルの値を取得
                v = r.Text
                ' セル範囲を取得
                rc = r.MergeArea.Address(False, False)
                ' 結合セルを解除
                r.MergeArea.UnMerge
                ' 解除した各セルに値を入れる
                ws.Range(rc).Value = v
            End If    
        Next
    Next
End Sub

이제 DB로 가져올 수 있습니다.

끝에

올해는 우리 회사에도 자동화, RPA의 물결이. . .
아직도 Excel이 전성의 회사도 많을 것. 효율화에 도움이되면 다행입니다.