Vba 循环下拉列表，但需要包含一个；“等等”；功能

我试图构建的宏本质上告诉excel：

从下拉列表中选择一个项目，该项目将更改另一个单元格的值

然后将该值复制并粘贴到另一张图纸上

向下移动到下拉列表中的下一项

重复

我使用了下面的代码。然而，当我在下拉列表中选择一个新项目时，我也在使用彭博社（Bloomberg）来提取数据。提取数据需要几秒钟的时间。现在，代码不会“等待”彭博社在粘贴值之前提取数据因此，我的问题是，如何合并一段代码，让excel在开始下一步之前，每次从下拉列表中选择一个新项目时都要等待20秒左右。

Sub DebtAutopull()
Dim dvCell As Range
Dim inputRange As Range
Dim c As Range
Dim i As Long

Set dvCell = Worksheets("PULLER").Range("B2")
Set inputRange = Evaluate(dvCell.Validation.Formula1)

i = 1
Application.ScreenUpdating = False
For Each c In inputRange
    dvCell = c.Value

    Worksheets("PASTE").Cells(i, "E").Value = Worksheets("PULLER").Range("D2").Value
    i = i + 1

Next c
Application.ScreenUpdating = True

End Sub

加

Application.Wait（Now+TimeValue（“0:00:20”））

您需要暂停的地方。

谷歌搜索“Excel VBA Wait”会在microsoft和stackoverflow上返回答案。可能重复的