自己录制一个宏，运行很慢，什么原因

道博

我自己录制了一个宏，以后要在周一到周五，每天9：00——16：00期间，大约5-10分钟计算一次，现在运算很慢（60秒以上），什么原因，如何提高运算速度
代码如下：

Sub 录制计算()
'
' 录制计算 Macro
' 宏由 微软中国 录制，时间: 2018/4/7
'

'
    Columns("E:E").Select
    Selection.Replace What:="开仓", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="平仓", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="换手", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="双平", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="双开", Replacement:="0", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="空换", Replacement:="-1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="多平", Replacement:="-1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="空平", Replacement:="1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="多换", Replacement:="1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="多开", Replacement:="2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="空开", Replacement:="-2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R5C3:RC[-3],R5C5:RC[-1])"
    Range("F5").Select
    Selection.AutoFill Destination:=Range("F5:F10199")
    Range("F5:F10199").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=LOOKUP(2,1/(RC[-1]=R5C1:R15000C1),R5C6:R15000C6)"
    Range("H5").Select
    Selection.AutoFill Destination:=Range("H5:H248")
    Range("H5:H248").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("I5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=AVERAGE(R5C[-1]:RC[-1])"
    Range("I5").Select
    Selection.AutoFill Destination:=Range("I5:I12"), Type:=xlFillDefault
    Range("I5:I12").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

道博

ActiveCell.FormulaR1C1 = "=SUMPRODUCT(R5C3:RC[-3],R5C5:RC[-1])"
    Range("F5").Select
    Selection.AutoFill Destination:=Range("F5:F10199")
是上面的命令运算数据太大的缘故吗？有些数据可能超过20000行，有什么好的方法提高运算速度，谢谢

xyxcc177

把你的意图写明白，录制的宏80%的代码都没有用，没有人看这些东西。

道博

xyxcc177 发表于 2018-4-7 10:59
把你的意图写明白，录制的宏80%的代码都没有用，没有人看这些东西。

就是这个宏运算太慢，100秒以上，如何缩短到10秒左右