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