엑셀 vba 링크만들기_없애기

Sub 링크만들기_없애기()

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

    

    totalCols_입력자동화 = 8

    

    Dim arrGrd()

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

        

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

    For i = 1 To olines

      Range("A5").Offset(i, 0).Hyperlinks.Delete

      

      Range("A5").Offset(i, 0).Font.Size = 9

    Next

       

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

  

End Sub

.