Range("E4:ALP4").Select
    Selection.ClearContents
    Range("D4:D1003").Select
    Selection.Copy
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4:D1003").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4:D1003").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4:D1003").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("h4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4:D1003").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("i4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

说  明

意思是将D列内容脱公式后值粘贴到E列，后计算新的
内容后再依次粘贴到F列，G列，H列……直致ALP列！

因要粘贴到1000列数据，用录宏的方式宏内存容量有限不能一个宏
一次些装完，希望用循环语句VBA完成！

希望各位大神不吝赐教！

Sub Test()
    Dim arr, j
    Range("E4:ALP4").ClearContents
    For j=5 To 1004 'E-ALP列
        arr = Cells(4, "D").ReSize(1000, 1)
        Cells(4, j).ReSize(1000, 1) = arr
    Next j
End Sub