相同条件数据自动填充（根据指定数字填充重复数据）

由于公司启用了新标签，现在需要根据盘点产品数重新打印指定数量的标签。比如冰箱4台，洗衣机2台，那么就要在D2:D5数据区域复制4个重复的冰箱品名、2个重复的洗衣机品名，以此类推（图1）。手动复制容易出错且效率低，下面笔者以Excel 2019为例，介绍如何快速完成类似的数据复制操作。

（图1）

文| 俞木发

○ 方法1：REPT函数 Word

　　Excel的REPT函数可以按照定义的次数在一个单元格中重复显示文本，这相当于复制文本。因此我们可以先使用该函数填充品名，然后将填充的品名分离到每个单元格中。　　

　　1. 填充数据　　

　　先选中D列，右击并依次选择“设置单元格格式→对齐→文本控制→自动对齐”；再定位到D2单元格并输入公式“=REPT(B2&CHAR(10),C2)”，然后下拉填充，这样在D列对应的单元格中就可以看到指定填充数量的品名了（图2）。　　

（图2）

　　公式解释：　　

　　这里的填充格式是将B2单元格中的数据和换行符号“CHAR(10)”连接在一起，填充数量则是C列的库存数，下拉公式后完成指定数量的填充。　　

　　2. 复制数据　　

　　图1的要求是将复制品名保存在不同的单元格中，因此需要分离数据。分离数据可以借助Word来完成，先在图2所示的窗口中复制D2:D5区域中的数据，接着切换到Word文档中，依次点击“开始→粘贴→保留源格式”，粘贴复制的数据，可以看到此时每个填充数据自动占用一行（图3）。　　

（图3）

　　3. 数据粘贴　　

　　在Word中全选并复制上述的数据，返回Excel窗口，定位到E2单元格，按下“Ctrl V”粘贴，即可完成数据的分离操作（图4）。　　

（图4）

○ 方法2：公式法　

　　上述的方法需要多次复制/粘贴才能完成。如果要实现数据的自动填充，我们还可以通过函数来完成。　

　　1.设置辅助列　　

　　定位到A2单元格并输入数字“1”，再定位到A3单元格并输入公式“=A2 C2”，然后将其下拉填充，从A3单元格开始对库存数“累加 1”（图5）。　　

（图5）

　　2. 设置引用公式　　

　　定位到D2单元格并输入公式“=IF(VLOOKUP(ROW(A1),A:B,2,1)=0,"",VLOOKUP(ROW(A1),A:B,2,1))”，下拉填充，直到单元格显示为空，这样可以完成数据引用复制操作（图6）。

（图6）

　　公式解释：

　　这里先将“VLOOKUP(ROW(A1),A:B,2,1)”作为IF函数的判断条件，如果其值为0就显示为空，否则显示为引用值。在“VLOOKUP”函数中，使用行号“ROW(A1)”（即为1）作为要查找的值，公式下拉后会依次变为“ROW(A2)”（即为2）、⋯⋯。查找区域则为“A:B”列，查找的列号为查找区域的第2列（即品名）。　　

　　最后的“1”表示模糊查找，这样当查找值小于查找区域中第1列的数值时，即返回比查找值小的上一个数。比如在D3单元格中，由于要查找的值为“2”（ROW(A2)），2<5（即A3的值），所以在D3中会返回比“5”小的上一个数，即A2（为1）对应的品名即“冰箱Y-01”，以此类推。而在D14单元格中，由于查找值“13=A14”，所以返回值为“0”，通过IF函数判断则显示为空。　　

○ 方法3：VBA法　

　　通过分析需求可以发现，在D列填充数据，实际上就是根据C列的库存数值进行复制/粘贴，因此我们可以通过VBA代码快速实现操作。　　

　　1. 下载代码　　

　　到“https://share.weiyun.com/s7sSliXX”下载所需的代码，然后使用记事本程序打开代码文件并全选复制，在Excel窗口中按下“Alt F11”快捷键打开VBA编辑窗口，依次点击“添加→模块”，将下载的代码粘贴到代码框中保存（图7）。　　

（图7）

　　代码解释：　　

　　设置两个变量i和t，然后对C列数据进行遍历，并且根据得到的数量复制C列数据，最后将其粘贴到D列保存，从而完成指定数量的填充。　　

　　2. 运行代码　　

　　返回Excel窗口，依次点击“开发工具→宏”，在打开的窗口中选择“数据填充”，点击“执行”，这样在D列中就能自动完成数据的填充复制操作了（图8）。　　

（图8）

　　熟悉Power Query的朋友也可以使用该组件完成操作。只要先创建表，然后在打开的Power Query编辑器中添加自定义列，在自定义列里输入公式“={1..[重复次数]}”，完成重复数据填充，最后删除不必要的列，关闭并上载即可。CF

原文刊登于2022 年 10 月 1 日出版《电脑爱好者》第 19 期

,