Excel VBA - 一次循环遍历第一列

Question

我正在尝试遍历Sht1 (B2:B138) 中的每一行，并为该循环中的每个项目设置一个“输入”单元格Sht2 (A1)，一次一个。然后，“输出”单元格Sht2 (N7) 中的值将被复制回Sht1 (C2:C138)。

---

例如：

Sht2 (A1) = value in Sht1 (B2)，然后 Sht1 (C2) = value in Sht2 (N7)

重复

Sht2 (A1) = value in Sht1 (B3)，然后 Sht1 (C3) = value in Sht2 (N7)

---

一遍又一遍，直到它到达列表的底部。最终我可能不得不扩展Sht1 ColB 中的列表，因此我一直试图让它动态评估所需的迭代次数。

我在下面尝试的代码为我提供了所有正确的“输出”，但它们最终没有出现在 Sht2 ColC 的正确单元格中。请看下文。我研究并发现this Q/A 很有帮助，并用它来影响代码。我提前感谢您的帮助。 My workbook 以备不时之需。

Sub fnDescCalc()
'Define the objects

Dim wb As Workbook
Dim Framework As Worksheet
Dim SumFramework As Worksheet
Dim colB As Long
Dim colC As Long
Dim LastcolC As Integer
Dim LastcolB As Long

'Set the Variables
Set wb = ThisWorkbook
Set Framework = wb.Sheets("Framework")
Set SumFramework = wb.Sheets("Sum_Framework")

LastRowcb = Framework.Range("B:B").Find("*", searchdirection:=xlPrevious).Row
colB = 2

LastcolC = 138

'This is the beginning of the main loop
For colC = 2 To LastcolC

'This is the beginning of the nested loop
    For colB = 2 To LastcolB
    SumFramework.Range("A1") = Framework.Range("B" & colB).Value
    colB = colB + 1

Framework.Range("C" & colC) = SumFramework.Range("N7").Value
colC = colC + 1

Next colB

Next colC

End Sub

Answer 1

您提供的解释和代码并不真正匹配。所以我知道您想要执行以下操作：

您输入 2 个值。一个搜索值 (SumFramework.Range("A1")) 和一个输入值 (SumFramework.Range("N7"))。现在，工作表“框架”的 B 列中与搜索值匹配的列表中的每个项目都被分配了 C 列中的输入值。如果我的理解有误，请详细说明:)

1。 在您的代码中，LastcolB 永远不会被初始化，因此它将为 0，并且循环永远不会执行。

2。 你只需要一个循环来做[编辑：你在评论中描述的]：

MaxRow = Framework.Range("B:B").Find("*", searchdirection:=xlPrevious).Row
'Alternative if the last row is the actual last row and .Row < 1000:
'MaxRow = Framework.Range("B1000").End(xlUp).Row


For rowB = 2 To MaxRow
    SumFramework.Range("A1") = Framework.Range("B" & rowB).Value
    Framework.Range("C" & rowB) = SumFramework.Range("N7").Value
Next rowB

1. “For...Next”自动计数。使用colB = colB + 1，您可以跳过每一行。