VBA如何将数据塞到另外的excel表

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中的空白单元格中。