效率太慢，帮忙修改下，谢谢

matianyu

请大虾帮我看看能否在效率上提高一点，我运行后需要半小时才有反应，先谢谢了。

For k = 5 To Cnum + 4
a = Worksheets("相关系数计算法").Cells(1, k)


With Worksheets("沪深300股票")

g = .[A1:KS1].Find(a, LookIn:=xlValues, searchDirection:=xlPrevious).Column

f = Split(Cells(1, g).Address, "$")(1)

End With

    Sheets("沪深300股票").Select
    Range("" & CStr(f) & "4:" & CStr(f) & "64").Select
   
    Selection.Copy
    Sheets("相关系数计算法").Select
    Range("F200").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=True, Transpose:=False
    For i = 200 To 200 + 60 - 1
        s = Application.Ln(Cells(i, 6) / Cells(i + 1, 6))
        Cells(i - 194, k) = s
        Next i
Next k

chenzyyysl

关闭屏幕刷新       
        使用工作表函数       
        使用更快的单元格操作方法       
        使用With语句引用对象       
        少用激活或选择语句

在论坛找相关内容