loops - 如何使用与另一个单元格值的偏移量跨列开始循环？

Question

我正在尝试将一系列数据复制到一个工作表“数据”中的列，再复制到另一工作表“数据编译”上的特定列。数据编译中的列将根据其他值（标识批次 ID 的字母数字指示符）而变化。这些单独的批次 ID 从第 4 行开始横向对齐，标题值命名为：“温度”或“搅拌”。这些标头值中的每一个都将具有分组在其下的相同批次 ID。开始时只有一个批次 ID，第一个表头在 D2 中，第二个表头在 G2 中，第三个在 J2 中，依此类推。第一个批次 ID 从另一张纸送入 D4、G4、J4 等。当输入第二批 ID，我编程在每个后续标题之前插入一列，以便为另一个批 ID 腾出空间，但不是为第一个标题列，将第一个标题保持锁定，但将每个剩余标题列向右移动 1，始终在上一个组和下一个标题列的最后一个批次 ID 上留一个空格。因此，第一个标题下的第二个批次 ID 将进入 E4，并进入第二个标题下的第一个批次 ID 之后的单元格，其余标题以此类推。放置批次 ID 的代码与复制/粘贴数据列的代码是分开的。我遇到的问题是从另一张表中获取数据列以转到正确的批次 ID 以获得正确的标题名称。我打算使用 for 循环在第 2 行中进行搜索，以在 Data Compilation 中找到与数据列来源的 Data 中相同的标题名称相匹配的标题名称。那部分有效。我想我可以在其中执行另一个循环，然后从数据中搜索与批处理 ID 匹配的批处理 ID，其中同一列数据是，然后将该列直接复制/粘贴到数据编译中的批处理 ID 下。我为每个标题名称编写了单独的 Subs 来测试它。这适用于第一个标题下的第一个批次 ID。但是，当我尝试为第二个标题名称运行第二个子程序时，它正在找到正确的批次 ID，但它是第一个标题名称 b/c 中的批次 ID，搜索当然是从第一列开始的，它在那里停止复制/粘贴数据列。我希望能够从正确的标题列开始每个后续搜索，这样我就可以防止它在我需要的地方开始搜索。我将尝试附上我的子布局和循环部分的图片。希望这足够清楚。我的 VBA 技能非常有限。谢谢。[输入图片说明在此处输入图像描述] 2

标签： loopsfor-loopoffset