我正在使用下面的代碼來修改TextToDisplay一萬個單元格的列的超鏈接。
它可以作業，但代碼大約需要 10 秒才能完成（在高端 PC 上）。
我正在尋找一種更快的方法來完成這項任務。
我試圖將所有超鏈接放在一個陣列上，但我在代碼中得到以下錯誤
Dim rng As Range
Set rng = ws.Range("N2", ws.Cells(Rows.Count, "N").End(xlUp))
Dim arr
arr = rng.Hyperlinks ‘Run-time error 450: Wrong number of arguments or invalid property assignment
這是作業代碼，但速度很慢。
我也試過關閉screenupdating，但沒有任何區別。
提前感謝任何有用的評論和答案。
Option Explicit
Option Compare Text
Sub Replace_Hyperlinks_TextToDisplay_Q()
Dim ws As Worksheet: Set ws = ActiveSheet
Dim LastRow As Long
LastRow = ws.Range("O" & Rows.Count).End(xlUp).Row
Const str1 As String = "http://xxxxx/"
Const str2 As String = "\"
Dim i As Long
For i = 2 To LastRow
If ws.Range("O" & i).Hyperlinks.Count > 0 Then
ws.Range("O" & i).Hyperlinks(1).TextToDisplay = Replace(Range("O" & i), str1, "")
ws.Range("O" & i).Hyperlinks(1).TextToDisplay = Replace(Range("O" & i), str2, " - " & vbLf)
ws.Range("O" & i).Hyperlinks(1).TextToDisplay = UCase(Left(ws.Range("O" & i).Hyperlinks(1).TextToDisplay, 1)) _
Mid(ws.Range("O" & i).Hyperlinks(1).TextToDisplay, 2, _
Len(ws.Range("O" & i).Hyperlinks(1).TextToDisplay))
End If
Next i
End Sub
uj5u.com熱心網友回復：
我們像任何其他值一樣替換Range.TextToDisplay使用陣列。我還沒有在大范圍內對此進行過測驗，但它應該比迭代單元格要快得多。
Sub Replace_Hyperlinks_TextToDisplay_Q2()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Const str1 As String = "http://xxxxx/"
Const str2 As String = "\"
Dim Target As Range
Dim Data As Variant
With ActiveSheet
Set Target = .Range("O1", .Cells(.Rows.Count, "O").End(xlUp))
End With
Data = Target.Value
Dim r As Long
For r = 1 To UBound(Data)
Data(r, 1) = Replace(Data(r, 1), str1, "")
Data(r, 1) = Replace(Data(r, 1), str2, " - " & vbLf)
Data(r, 1) = UCase(Left(Data(r, 1), 1)) & Mid(Data(r, 1), 2, Len(Data(r, 1)))
Next
Target.Value = Data
Application.Calculation = xlCalculationAutomatic
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/471470.html
上一篇：在C 中處理非常大的資料