如下所示，將Sheet1工作表的內(nèi)容復(fù)制到Sheet2工作表的指定單元格，若手動(dòng)填充將增加工作量，而使用VBA中的for循環(huán)可大幅減少工作量。 打開VBA編輯器并插入模塊要開始使用VBA自動(dòng)填充單元格

如下所示，將Sheet1工作表的內(nèi)容復(fù)制到Sheet2工作表的指定單元格，若手動(dòng)填充將增加工作量，而使用VBA中的for循環(huán)可大幅減少工作量。

打開VBA編輯器并插入模塊

要開始使用VBA自動(dòng)填充單元格，首先打開Excel表格，點(diǎn)擊菜單欄上的【開發(fā)工具】，選擇【Visual Basic】以打開VBA編輯器。另一種方式是使用組合鍵【Alt F11】。在VBA編輯器中，點(diǎn)擊菜單欄的【插入】，然后選擇【模塊】。

編寫VBA程序代碼

在新建的模塊中輸入以下程序代碼：

```vba

Sub AutoInput()

Dim i, j, k, m, n As Long '數(shù)據(jù)類型定義

On Error Resume Next '如果運(yùn)行過程中出錯(cuò)，則忽略

Set mysheet1 ("Sheet1")

Set mysheet2 ("Sheet2")

k 1 '初始值賦值

For i 1 To 8 '所要填充的列數(shù)為8列

If i Mod 2 0 Then '如果所填充的表格是偶數(shù)列，則執(zhí)行IF里面的語句

n 0 '初始化為0

For j 1 To 6 '一列里要填充的數(shù)據(jù)為6組

k k 1 '從原表格里逐一遞增行數(shù)

For m 1 To 4 '每4列為一組

n n 1 '從原表格第一列開始

mysheet2.Cells(n, i).Value mysheet1.Cells(k, m).Value '賦值

Next

Next

End If

Next

End Sub

```

運(yùn)行程序查看結(jié)果

點(diǎn)擊VBA編輯器上的“運(yùn)行”圖標(biāo)來執(zhí)行程序，在Sheet2表格中即可看到自動(dòng)填充的結(jié)果了。這樣，通過編寫簡單的VBA代碼，可以快速、高效地完成大量單元格的填充任務(wù)，極大地簡化了工作流程。

通過VBA的for循環(huán)結(jié)構(gòu)，我們可以通過簡單的代碼實(shí)現(xiàn)復(fù)雜的數(shù)據(jù)處理和填充操作，節(jié)省了大量重復(fù)性勞動(dòng)。這種自動(dòng)化的方式不僅提高了工作效率，還能減少人為錯(cuò)誤的發(fā)生，是在處理大量數(shù)據(jù)時(shí)非常實(shí)用的方法之一。希望以上介紹對(duì)你有所幫助，讓你更加熟練地利用VBA優(yōu)化工作流程。