VBA 循环复制、粘贴和执行其他 VBA

Question

我在循环和尝试学习现有宏方面相对较新。我什至都在努力开始，我觉得自己是一种简单的方法。我从 B6 的一个工作簿中开始有一系列数据，并且该列表可能永远存在。我希望我的循环做的是：

1. 复制B6
2. 转到另一个工作簿将其粘贴到单元格中
3. 运行另一个 VBA
4. 将使用#2 值的#3 踢出的数据复制并粘贴到#1 工作簿的另一张工作表中
5. 循环并从头开始前往 B7。一项更改是在 B7 完成后，它将粘贴在之前已粘贴在 #4 中的数据下方。

Answer 1

我不知道您为什么需要在一个工作簿中使用多个 VBA 过程来执行此操作。

在 Workbook#1 中，我会有一个这样开始的子例程：

Dim wb1 as Workbook, wb2 as Workbook, wb3 as workbook
Dim iRow1 as Long, iRow2 as Long, iRow3 as long
Dim data1 as Variant, ws1 as Worksheet, ws2 as Worksheet, ws3 as Worksheet

set wb1 = ThisWorkbook
set wb2 = ThisWorkbook.Application.Workbooks.Open  <Your workbook filename>
set wb3 = ThisWorkbook.Application.Workbooks.Open  <Your other workbook filename>
set ws1 = wb1.Worksheets("MySheet1")
set ws2 = wb2.Worksheets("MySheet2")
set ws3 = wb3.Worksheets("MySheet3")

iRow1 = 6
iRow2 = 1
Do while len(ws1.cells(iRow1, 2)) > 0
    data1 = ws1.cells(iRow1, 2)
    ws2.cells(iRow2, 1) = data1
    iRow2 = iRow2 + 1

    [Rest of Your Code]

    iRow = iRow + 1
Loop

打开所有工作簿并明确引用所有内容后，无需运行多个 VBA 过程或担心正在复制或使用哪些数据。

我知道 Python 人喜欢它的弱类型化，但是如果你利用 VBA 的强类型化和对象关联，那么编程将变得轻而易举，而随后来维护你的程序的人会更快乐。