VBA宏，一次将一个单元格列表复制到另一个工作表中以进行API处理答案

【问题标题】：VBA macro to copy a list of cells one at a time into another sheet for API processVBA宏，一次将一个单元格列表复制到另一个工作表中以进行API处理
【发布时间】：2017-01-09 09:51:24
【问题描述】：

我是构建宏的新手，但我认为我正在尝试做的事情是可能的，并且会让生活变得更加轻松。我正在尝试创建一个宏，该宏将一次将一张表的 A 列中的 100 个单元格列表复制到 SHeet 详细信息中进行处理，然后将详细信息表的输出（在 API 运行后）复制回单元格旁边的表 1 A3。然后我希望它移动到 A4 并遵循相同的过程。

我正在尝试构建一个宏，该宏将从第一张表复制单元格 A3（这是 A 列中彼此下方 100 个单元格的列表），然后将其粘贴到详细表中的 $A$1 中。在 API 运行后，我希望它将 $C$21、$C$22、$D$25（等另外 5 个固定输出单元格）复制回表 1 到与 A3 相邻的第 1 行，以便它是 B3、D3、E3。等等。

然后我希望它从第一张表移动到单元格 A4，然后将其粘贴到表详细信息中的 $A$1 中，让 API 运行，将 $C$21、$C$22、$D$25 复制回第一张表中的行1 与 A4 相邻，因此它是 B4、D4、E4。等等。

我什至不确定在这里使用哪个术语。

到目前为止我所拥有的是：

Sub a()

With Sheets("Sheet1")
    For I = 3 To .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A" & I).Copy Sheets("Detailed").Range("A1")
        Call Wait_Fo_API()
        Sheets("Detailed").Calculate
        .Range("B" & I).Value = Sheets("Detailed").Range("C21").Value
        .Range("D" & I).Value = Sheets("Detailed").Range("C22").Value
        .Range("E" & I).Value = Sheets("Detailed").Range("D25").Value
        ' add rest of output cells
    Next I

End With

End Sub


Sub Wait_Fo_API()

Application.OnTime Now() + TimeValue("00:02:00")

非常感谢您的帮助！

【问题讨论】：

标签： vba excel macros

【解决方案1】：

知道了！

Dim i As Integer
Dim ws1 As Worksheet, ws2 As Worksheet

Sub Start()

Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Detailed")

i = 2

woopi2

End Sub

Sub woopi2()

ws1.Range("A" & i).Copy
ws2.Range("A1").PasteSpecial Paste:=xlPasteValues

If ws1.Range("A" & i) = vbNullString Then
    Exit Sub
Else
    Wait_For_Copy
End If

End Sub

Sub Wait_For_Copy()

Application.OnTime Now() + TimeValue("00:02:00"), "Copy_Values"

End Sub

Sub Copy_Values()

    ws2.Range("C25").Copy
    ws1.Range("B" & i).PasteSpecial Paste:=xlPasteValues
    ws2.Range("C23").Copy
    ws1.Range("D" & i).PasteSpecial Paste:=xlPasteValues
i = i + 1

woopi2

End Sub

【讨论】：