excel怎样使用vba实现箱号换散鞋模板的功能

如何将整箱的鞋子换成散鞋，做一个模板方便以后使用呢?主要用到mid以及vlookup函数。了解下鞋子货号的要素，箱号DW16X1234AB10B06000010是22位，前13位是货号，13-16位为规格B06，最后6位流水号。06是双装箱。B为起始尺码225，DW16X1234AB10B06000010装的是DW16X1234AB10225的6双。

1、箱号是22位，前13位是货号，从箱号取值前13位，取该箱的货号，在右边一格输入= mid(箱号，1，13)， 取出该箱的货号。

2、箱号的13-16位为规格，取值规格，C06、D06、F10...等，前一位字母代表的是里面装箱的鞋的起始尺码，后面06是装箱的规格，06双装，有的是10双装。 输入=mid(箱号，14，3)， 取值规格。

3、用规格是要从尺码表匹配的起始尺码以及装箱的数量。做好尺码表，尺码表应该有所有规格对应的起始尺码，A06，B06，C06，D06...一一对应的是220，225，230，235，240等。后面两位数字06对应的6双装。

4、匹配的思路是利用规格，先对应尺码，后对应双数。从尺码表匹配前面规格对应的尺码， 输入函数=vlookup(规格，06尺码表，第2列，0)， 使用规格作为查找值，从尺码表匹配起始尺码。得到起始尺码。

5、 得到内装散鞋的货号 。合并货号和尺码，得到箱子内装的散鞋的货号，合并第一步的单元格和第四步的单元格， 输入=C1&E1，合并单元格 。得到里面所装散码的货号。

6、从尺码表匹配装箱的规格，利用函数=vlookup(规格，06尺码表，2，0)，2代表从所求值在数据表的第几列，使用规格作为查找值，数量位于表的第2列。不懂的话，请查下vlookup函数的用法。我的规格分了两列方便匹配。

7、公式做好之后，只要将箱号复制到第一列，可以不写箱号后面的1，正常情况下，后面就会出现对应的散鞋，如果没有出现，选中空白区域的上方一行， Ctrl+D填充你的单元格 ，出现完整的结果。