VBA 等公式运行完后再进行下一步

答案:2 悬赏:30 手机版

解决时间 2021-03-20 10:28

提问者网友：呐年旧曙光
2021-03-19 11:48

请问有没有什么VBA语句可以设置等表格内的公式全部运行完之后，再进行下一步？
Sub test()
Dim i As Long
Application.ScreenUpdating = False
Range("C2").Select
Selection.FormulaArray = _ '标记
"=LOOKUP(1,0/FIND(UPPER(RC2),IF(R2C15:R358C15=RC1,R2C16:R358C16)),R2C17:R358C17)"
Selection.AutoFill Destination:=Range("C2:C" & [a800000].End(xlUp).Row)
Range("C:C").Select
Selection.Copy '标记1
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
比如以上代码，在标记行运行的公式还没运行完时，就会运行标记1的粘帖为数值了。。

最佳答案

五星知识达人网友：雪起风沙痕
2021-03-19 12:38

Sub test()
Dim i As Long
Application.ScreenUpdating = False 这一句删除
    Range("C2").Select
    Selection.FormulaArray = _         '标记
        "=LOOKUP(1,0/FIND(UPPER(RC2),IF(R2C15:R358C15=RC1,R2C16:R358C16)),R2C17:R358C17)"
    Selection.AutoFill Destination:=Range("C2:C" & [a800000].End(xlUp).Row)
    Range("C:C").Select
    Selection.Copy     '标记1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Application.ScreenUpdating = True这一句也删除
End Sub

全部回答

1楼网友：走死在岁月里
2021-03-19 13:26

用公式有可能解决，但vba是最有效的办法。即使用公式，也得用编辑替换来替换里面的文件名字，可能还得用vba，所以，干脆用vba好了。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息