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