VBA循环/直到

Question

我正在尝试以非常特定的格式配置数据，以便将其上传到软件。

我有一个计数表，其中包含需要在上传模板表上输入的行数。计数表上的值范围介于3、5、7 和 9 之间。

如果计数表上的值为"3"，我希望我的 VBA 程序能够在上传模板表上输入值 1、2、3(在 3 个单独的行上)。

如果计数表上的下一个值是"5"，我希望我的程序能够输入值 1、2、3、2、3(在上传表上的 5 个单独的行上)。

如果计数表上的值为"9"，我希望我的程序输入值 1、2、3、2、3、2、3、2、3(在 9 个单独的行上)等等。

前三个值将始终连续为 1、2、3，然后根据计数表上的值在 2 和 3 之间交替。

谁能在这里帮我？

Answer 1

没有足够的细节来真正写任何东西。但这里有一个教程/示例，介绍如何从单独的工作簿访问数据以及如何将值写入循环内的单元格。

您正在寻找的公式，其中输出行 # 遵循模式1,2,3,2,3,2,3...对于普通数学来说有点复杂，但可以通过使用布尔表达式作为公式的一部分在编程数学中完成。

Sub RowNumberer()
Dim CountWB As Workbook
Set CountWB = Workbooks("Your Count Sheet Workbook's Name (plus file extension)")

Dim CountSheet As Worksheet
Set CountSheet = CountWB.Worksheets("Your Count Sheet's Name")

Dim CountSheetValue As Long
CountSheetValue = CountSheet.Range("Cell Address of your Count result (3, 5, 7, 9)")

Dim UploadWB As Workbook
Set UploadWB = Workbooks("Your Upload Template Workbook's Name (plus file extension)")

Dim OutputSheet As Worksheet
Set OutputSheet = UploadWB.Sheets("The Name of the Sheet you want to number the rows on")

Dim i As Long
For i = 1 To CountSheetValue
OutputSheet.Cells(i, 1) = i Mod 2 - 2 * (i > 1)
Next i
End Sub

解释公式：i Mod 2 - 2 * (i > 1)

i Mod 2取迭代值i并在除以 2 后检索余数。这在 1 和 0 之间交替。

我们只需要+2就可以将其从1 and 0移动到3 and 2。但是我们只希望在第一个数字之后+2因为我们希望第一个数字是 1。

所以我添加了布尔表达式(i > 1)当 False 时为 0，当 True 时为 -1。我不知道为什么 True = -1 在 VBA 中。因此，术语- 2 * (i > 1)在i = 1时为 0，在i > 1时为+2。