如何使用VBA将数据填充到另一个Excel表格

Excel中的VBA常常需要处理不同表格之间的数据传递和交换等工作。本文将介绍如何使用VBA将一个工作表中的数据填充到另一个表格的空白单元格中。

准备工作

首先，我们需要打开Excel工作簿，并在其中创建两个工作表，分别称为表1和表2。下图中左侧为表1，右侧为表2。我们将把表1中B列的数据依次填充到表2中A列的空白单元格中。

打开VBA编辑界面

按下Alt F11键，打开VBA编辑界面。然后双击表2，在右侧代码编辑区输入以下代码：

```

Sub FillData()

Dim i As Integer

Dim k As Integer

For i 1 To 10

If Cells(i, 1) "" Then

k k 1

Cells(i, 1) Sheets("表1").Cells(k, 2)

End If

Next

End Sub

```

代码通过循环和条件判断来检查每个单元格是否为空。如果为空，则将表1相应位置的数据填充到表2的对应单元格中。

运行代码

点击代码中的任意位置，然后点击上方的“运行子程序”按钮。这样就可以执行代码了。

如此一来，表1中的数据就会被填充到表2的空白单元格中。你可以看到下图中表2的A列已经成功填充上了来自表1的数据。

通过这种方法，我们可以方便地在Excel中使用VBA将数据从一个表格传递到另一个表格，提高工作效率。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。