excel VBA将文本转换为超链接更改工作表字体格式

Question

我有一个按钮，工作得有点完美。它做了我想要它做的事情，将列中的条目转换为超链接。但是在它处理之后，它会混乱所有的表格形式，如行高，字体类型，字体大小等。

Dim RITMRow As Long
Dim ws1 As Worksheet
Dim RITMstorage As String
Dim LastRow As Long




Set ws1 = Sheets("Tracker")


LastRow = ws1.Range("A" & Rows.Count).End(xlUp).Row

For RITMRow = 2 To LastRow


RITMstorage = ws1.Range("A" & RITMRow).Value



ws1.Range("A" & RITMRow).Hyperlinks.Add Anchor:=ws1.Range("A" & RITMRow), _
    Address:="https://snow.ubs.net/sc_req_item.do?sys_id=" & RITMstorage, _
    ScreenTip:="Request Number", _
    TextToDisplay:=RITMstorage


Next RITMRow

end sub

我该怎么做才能阻止它弄乱表单格式？感谢。