1、Excel工作簿中有两个工作表，下图中左侧为表1，右侧为表2，将表1中B列的数据依次填充到表2中A列的空白单元格中。
2、按下Alt+F11打开VBA编辑界面，双击表2，弹出右侧代码编辑区，如下图所示。
3、输入代码：Sub 鱼木混猪()For i = 1 To 10If Cel盟敢势袂ls(i, 1) = "" T茑霁酌绡henk = k + 1Cells(i, 1) = Sheets("鱼").Cells(k + 1, 2)End IfNextEnd Sub如下图所示，代码通过循环和条件判断单元格是否为空，如果为空则填入表1的数据。
4、点击代码任意位置，然后点击上方的“运行子程序”按钮，如下图所示。
5、这样，表1的数据就塞到了表2的空白单元格中，如下图所示。
