엑셀 vba 별을_공백으로_변경

Sub 별을_공백으로_변경()

 

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

    olines = Last_Lines_입력자동화("A")

    

    totalCols_입력자동화 = 8

    

    Dim arrGrd()

    arrGrd = Range("A6").Resize(olines, totalCols_입력자동화)

    

    ReDim arrgrdrt(1 To olines, 1 To totalCols_입력자동화)

    For i = 1 To olines

      For j = 1 To totalCols_입력자동화

        str1 = arrGrd(i, j)

        str2 = ""

        For k = 1 To Len(str1)

          If Mid(str1, k, 1) = "?" Then

            str2 = str2 + " "

          Else

            str2 = str2 + Mid(str1, k, 1)

          End If

        Next

        arrGrd(i, j) = str2

      Next

    Next

    

    Range("A6").Resize(olines, totalCols_입력자동화) = arrGrd

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

End Sub