Question

求EXCEL的VBA语句，包含判断和循环

根据下图中的左边的那个班数，在右边的对应的机台后面的空格内填入相应的空格数，内容是单号，比如AD-1只有一个班数，即在右边AD-1后面填入一个5102-140312025，如果是XH-1，则在右边的XH-1后面填入三个单元格的5102-140312025，还有一个注意，就是单号的那组数据和后面的机台排班是在不同的表格，暂定为sheet1和sheet2吧，列名可以自定，求救啊各位大侠

Answer 1

这个问题不会VBA，用函数就可解决。

假定原数据在sheet1的ABC三列，排班在sheet2从A列开始

B3

=IF(COLUMN(A1)<=VLOOKUP($A3,Sheet1!$B:$C,2,),VLOOKUP($A3,IF({0,1},Sheet1!$A$1:$A$100,Sheet1!$B$1:$B$100),2,),"")  右拉填充，下拉填充

追问

我试了一下，结果是有的，但是有重复的机台名称的时候，只会出来一个结果，例如光-5应该是有两个单号的，结果就只出来一个单号啊，应该是四个单元格都有内容的，但是只有三个有；还有，第一个表的机台号可能没有顺序的，也会有重复的，遇到这样的情况的时候貌似你的方式不行啊

追答

没注意重复的情况！

Answer 2

貌似有两个问题：

1. 暂定的Sheet1和Sheet2，相同字段是哪个？比如说是机台？

2. 班数的1,2,3，……8……12……怎么对应到二(早)、二(晚)、三(早)、三(晚)……或者，只要依次填充满班数即可？

看数据的第二列【机台】，有两个“光-5”，是不是数据有误？如果不是有误那该如何处理？

单号列之间的空白行建议去除（主要是由于实际工作中单号的数量是可变的，空行作为重要的结束标志，VBA可以用于判断是否搜索完毕。否则就要在VBA或者某个单元格指定搜索区域的高度，对于使用者而言增加了操作步骤，而数据本身也降低了规范性）

追问

sheet1和sheet2只是自己定义的 也可以是同一张表，相同字段是机台，也就是根据机台编号去判定第一列的单要几个班次；班数只要依次填入即可，但是要满足填入的单元格个数是班数个数，内容是单号

空白行可以删除，两个光-5是因为前面的单号不一样，要用同一个机台。

追答

明白。只是不知道 光-5 怎样处理呢？附件为一个VBA，效果如图：

代码：

注意根据实际的Sheet名、和数据范围定义VBA中的Set语句的值

注意，不知道类似“光-5”如何处理，这里的该类数据会被留下最后找到的所覆盖。你需要指定相应的处理逻辑在此VBA中调整。如有需要，可加Q14873-46335讨论

祝你顺利

追问

因为是排班表 所以有重复的机台名是肯定的，也就是说，同一个机台肯定会有多个单号的，而且第一个表是会持续更新的

追答

晕了，我已经知道是有重复的机台。
只是你没有说明相应的处理逻辑啊。
我设想的一种可能，同一台机器，排在下面行号的单号，接在上面的后面继续排列。
不过这要你说明规则的。到目前为止，我说了三次都还是不知道你怎么处理这个“重复”的问题

追问

我设想的一种可能，同一台机器，排在下面行号的单号，接在上面的后面继续排列

就是这个逻辑

追答

在“排班”表上，增加一列“总天数”。稍稍增加两条语句就OK了。伟大的参数啊

附图和宏代码：

重复的机台的单号，会在原有的后面继续接着排下去