Excel 从2个工作表中添加单元格范围

我有一个工作代码，允许我添加文件夹中的所有工作表和汇总库存表单的透视表。我现在的任务是创建一个运行的总页面，我们可以在其中获取第二个工作表，只需添加或减去在总行中输入的项目数。我已经拼凑了这段代码，在一定程度上满足了我的需要

Dim Add As Integer
Dim var1 As Integer
Dim var2 As Integer
var1 = Worksheets("Sheet1").Range("D6").Value
var2 = Worksheets("add").Range("F6").Value
Add = var1 + var2
Worksheets("Sheet1").Range("D6").Select
ActiveCell.FormulaR1C1 = Add
Application.DisplayAlerts = False
Sheets("add").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select

---

但是，这只适用于单个单元格，我需要它适用于表1中从D4到D649的范围。我一辈子都想不出解决这个问题的办法，而且我似乎也找不到关于多张纸和多个单元格的办法

也许你在追求这个：

Dim i As Long
With Worksheets("Sheet1")
    For i = 4 To 649
        .Cells(i, 4) = .Cells(i, 4) + Worksheets("add").Cells(i, 6)
    Next
End With 

或

---

我在代码中添加了一个循环，看看它是否有效：

Sub Macro7()

Dim Add As Integer
Dim var1 As Integer
Dim var2 As Integer
var1 = Worksheets("Sheet1").Range("D6").Value
var2 = Worksheets("add").Range("F6").Value
Add = var1 + var2

t = 6

Do Until t = 649

Worksheets("Sheet1").Cells(t, 4).Select
Selection.FormulaR1C1 = Add
Application.DisplayAlerts = False
Sheets("add").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Sheet1").Select

t = t + 1

Loop

End Sub

---

它与DisplayName的代码完美配合，非常感谢

Dim i As Long
With Worksheets("Sheet1")
For i = 4 To 649
    .Cells(i, 4) = .Cells(i, 4) + Worksheets("add").Cells(i, 6)
Next
End With 

---

你说你需要它来制作靶场是什么意思？您需要将

D4:D649

中的每个单元格添加到另一页的

F6

中吗？啊，对不起。我有表1 D4-D649作为我的跑步总数。我让我的代码从另一个工作簿中添加另一张工作表，并将该工作表命名为“添加”。然后，我需要它将表“add”中输入的F4-F649中的任何数字添加到表1中的运行总数中。希望这能把事情弄清楚

Dim i As Long
With Worksheets("Sheet1")
For i = 4 To 649
    .Cells(i, 4) = .Cells(i, 4) + Worksheets("add").Cells(i, 6)
Next
End With