excel VBA高手请进，关于让表格自动刷新的问题~

下面的代码，每次要双击单元格才会刷新结果，我需要任何一个单元格改变、复制黏贴 都刷新一下结果

Sub SortArray(arr As Variant)
Dim i As Long, j As Long
Dim temp As Variant
Dim hasExchanged As Boolean

For i = LBound(arr) To UBound(arr) - 1
hasExchanged = False
For j = i + 1 To UBound(arr)
If Len(arr(i, kLastCol)) < Len(arr(j, kLastCol)) Then
' 交换变量名对应的数值
temp = arr(i, 1)
arr(i, 1) = arr(j, 1)
arr(j, 1) = temp

' 交换变量名
temp = arr(i, kLastCol)
arr(i, kLastCol) = arr(j, kLastCol)
arr(j, kLastCol) = temp

hasExchanged = True
End If
Next j
If Not hasExchanged Then Exit For
Next i
End Sub

相关了解……