使用VBA批量更新同目錄下工作薄指定單元格內容

在實際工作中，有時候需要對同一文件夾下的多個Excel文件進行類似的操作，例如批量更新指定單元格內容。通過VBA，我們可以輕松實現(xiàn)這一目標。準備工作首先，在需要批量更新指定單元格內容的文件夾下，新建一

在實際工作中，有時候需要對同一文件夾下的多個Excel文件進行類似的操作，例如批量更新指定單元格內容。通過VBA，我們可以輕松實現(xiàn)這一目標。

準備工作

首先，在需要批量更新指定單元格內容的文件夾下，新建一個Excel文件。然后按ALT F11打開VBE編輯器，在新建的模塊中粘貼以下代碼：

```vba

Option Explicit

Sub 批量修改同目錄下工作薄指定單元格內容()

Dim f As String, wb As Workbook, th As Workbook, h, l, t

Const shname "sheet1" '此處設置需要更改的工作表名稱，默認為sheet1

Set th ThisWorkbook

False

Application.DisplayAlerts False

f Dir( "*.xls") '獲取文件夾地址下所有xls文件

h InputBox("請輸入行坐標（1-65536）", "請正確輸入行坐標")

If h "" Then Exit Sub

If h Like "*[!0-9]*" Or h > 65536 Then GoTo gh

l InputBox("請輸入列坐標（A-IV）", "請正確輸入列坐標")

If l "" Then Exit Sub

If l Like "*[!A-Za-z]*" Or Not (l Like "[A-Za-z]*" Or (l Like "[A-Z]?" And l Like "?[A-V]")) Then GoTo glt

t InputBox("更新內容", "請輸入更新內容")

Do While f > ""

If f <> Then '判斷是否為當前工作表

Set wb ( "" f)

(shname).Cells(h, l) t

Else

(shname).Cells(h, l) t

End If

f Dir

Loop

gh:

Application.DisplayAlerts True

True

End Sub

```

執(zhí)行批量更新操作

1. 按ALT F8，選擇執(zhí)行“批量修改同目錄下工作薄指定單元格內容”宏。

2. 在彈出的對話框中，請輸入行坐標：6，然后點擊確定。

3. 在彈出的對話框中，請輸入列坐標：A，然后點擊確定。

4. 在彈出的對話框中，請輸入內容：a6，然后點擊確定。

通過以上步驟，您就可以輕松批量更新同目錄下所有Excel文件指定單元格的內容了。這種方法極大地提高了工作效率，特別適用于需要大量重復操作的情況。