자료를 접수하면 빈셀들이 있다. 데이타 베이스로 활용하려면 빈셀을 채워줄때가 있는데 반복적인 일인 경우가 많다. 매크로로 작성해봤지만 작동하지 않았고, 고수의 도움을 받아 매크로 및 Tip에 대해 조언을 받아서 해결했다. 그 내용에 대한 기록

1안) 매크로에서 if 문 사용

역시 고수의 도움이 있어야.

 Sub 윗값복사()

    Dim c As Range

    For Each c In Selection

        If c = "" Then

            c.Value = c.Offset(-1, 0).Value

        End If

    Next c


 End Sub

2안) F5키를 사용하는 Tip

• 입력이 필요한 구간을 선택
• F5 – 옵션 – 빈셀선택
• 윗값입력(=셀)
• Ctrl + Enter : 선택된 셀에 같은 내용이 입력된다.
• 다시 구간 선택후 값붙여넣기

설명은 5단계지만 매우 간단하다.

하나씩 눌러주는 매크로를 시도했던 VB

심지어 작동도 안된다.

Sub 빈셀윗값복사작동안됨()

Do While Selection.Cells(1, 0).Value  ""

    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste

Loop
End Sub