针对重复偏移编号的Aperture检测VBScript简化技术问询

核心是用整数除法确定对应工作簿，取模运算实现列的循环，彻底替代冗余的ElseIf判断，同时支持无限数量的Aperture检测。

关键逻辑说明 #

• 工作簿匹配：每6个Aperture为一组，用整数除法\计算当前Aperture所属的组（即工作簿索引）
• 列匹配：列号固定在6-11循环，用取模Mod运算实现循环，避免硬编码范围

完整代码片段 #

' 假设用户定义的当前检测Aperture序号为 apertureNum（从1开始计数）
Dim apertureNum, wbIndex, colNum, targetWB
apertureNum = 7 ' 示例：第7个Aperture → 对应第2个工作簿的第6列

' 计算目标工作簿索引（从1开始，每6个Aperture对应一个工作簿）
wbIndex = ((apertureNum - 1) \ 6) + 1
' 计算目标列号（6-11循环，对应每组的第1-6个Aperture）
colNum = ((apertureNum - 1) Mod 6) + 6

' 获取目标工作簿（需确保工作簿已提前创建/打开，若按命名规则可替换为名称匹配）
Set targetWB = xlsApp.Workbooks(wbIndex)
' 写入测量结果到指定行（示例为第9行）
targetWB.Worksheets("Sheet1").Cells(9, colNum).Value = Dim1Num1

针对原错误的修正 #

你之前尝试的xlsWS.cells(9, (aperture + 5).Value = Dim1Num1失效的原因：

1. 未处理列的循环逻辑：第7个Aperture会计算到列12，超出了6-11的范围
2. 未切换工作簿：所有结果都写入了第一个工作簿，没有根据Aperture组切换目标工作簿

适配调整 #

• 如果Aperture序号从0开始计数，将计算式中的apertureNum - 1移除即可
• 如果工作簿按特定命名规则（如ApertureGroup1.xlsx），将工作簿获取代码改为：

  Set targetWB = xlsApp.Workbooks("ApertureGroup" & wbIndex & ".xlsx")
  

内容的提问来源于stack exchange，提问作者Josh briggs