vba 중복값 공백처리

Sub 중복값제거()
Dim i As Long
Dim 초기값 As String
Dim 가공전주소 As String
Dim 가공대상두번째달러 As Long
Dim 가공대상콜론 As Long
Dim 가공후 As String

Dim C As Range, Rng As Range, rng1 As Range, rng2 As Range
     Set Rng = Application.InputBox(prompt:="원하는 영역을 마우스로 선택하세요", Title:="범위선택", Type:=8)

For i = 1 To Rng.Columns.Count
초기값 = Rng.Cells(1, i).Value 'range(Rows.Count, i).Value
Set rng1 = Range(Rng.Cells(2, i), Cells(Rng.Cells(1, i).Row + Rng.Rows.Count + 1, Rng.Rows.Column + i - 1)) 'Rng.Offset(1, 0)
'rng1.Select
'Set rng1 = Rng.Offset(1, 0).Resize(Rng.Rows.Count - 1, Rng.Columns.Count)

    For Each C In rng1
           
        If C.Value = 초기값 Or C.Value = "" Then
            C.ClearContents
        Else
            초기값 = C.Value
        End If
        C.Select
    Next C
Next i
End Sub

중복값제거.xls

중복값제거.xls

0.05MB