Excel中的VBA常常需要處理不同表格之間的數(shù)據(jù)傳遞和交換等工作。本文將介紹如何使用VBA將一個(gè)工作表中的數(shù)據(jù)填充到另一個(gè)表格的空白單元格中。準(zhǔn)備工作首先，我們需要打開(kāi)Excel工作簿，并在其中創(chuàng)建

Excel中的VBA常常需要處理不同表格之間的數(shù)據(jù)傳遞和交換等工作。本文將介紹如何使用VBA將一個(gè)工作表中的數(shù)據(jù)填充到另一個(gè)表格的空白單元格中。

準(zhǔn)備工作

首先，我們需要打開(kāi)Excel工作簿，并在其中創(chuàng)建兩個(gè)工作表，分別稱(chēng)為表1和表2。下圖中左側(cè)為表1，右側(cè)為表2。我們將把表1中B列的數(shù)據(jù)依次填充到表2中A列的空白單元格中。

打開(kāi)VBA編輯界面

按下Alt F11鍵，打開(kāi)VBA編輯界面。然后雙擊表2，在右側(cè)代碼編輯區(qū)輸入以下代碼：

```

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

```

代碼通過(guò)循環(huán)和條件判斷來(lái)檢查每個(gè)單元格是否為空。如果為空，則將表1相應(yīng)位置的數(shù)據(jù)填充到表2的對(duì)應(yīng)單元格中。

運(yùn)行代碼

點(diǎn)擊代碼中的任意位置，然后點(diǎn)擊上方的“運(yùn)行子程序”按鈕。這樣就可以執(zhí)行代碼了。

如此一來(lái)，表1中的數(shù)據(jù)就會(huì)被填充到表2的空白單元格中。你可以看到下圖中表2的A列已經(jīng)成功填充上了來(lái)自表1的數(shù)據(jù)。

通過(guò)這種方法，我們可以方便地在Excel中使用VBA將數(shù)據(jù)從一個(gè)表格傳遞到另一個(gè)表格，提高工作效率。