2018년 6월 1일 금요일

모두 같은 값으로


1. Macro Code
    - cell merge
Sub register_merge()

' register_merge 매크로

Set r = ActiveCell
Dim i As Integer
    For i = 1 To 1000
        If Selection.Offset(1, 0) <> "" Then
            Selection.Offset(1, 0).Select
        Else
            Selection.End(xlDown).Select
            Selection.Offset(-1, 0).Select
            Range(Selection, Selection.End(xlUp)).Select
            Selection.Merge
            Selection.Offset(1, 0).Select
        End If
    Next i
End Sub

2. 빈칸을 모두 같은 값으로
홈 - 편집 - 찾기 및 선택 - 이동옵션 - blank

제일 위의 cell 에 넣을 수식 입력한 다음 ctrl + enter