循环哪个总和太多了

我有一个问题，我在VBA中做了一个循环：我有一个文件夹填充了几个Excel文件，并为每个这些文件我要A列，我想总和，直到一定的条件是达到列H.代码似乎工作，但问题是，它保持了最后一张运行的表的总和，例如我得到的输出：

(Sheet1) 45 (sheet2) 90 (+45) (sheet3) 135 (+45) 

代替

  (sheet 1) 45 (sheet 2) 45 (sheet 3) 45 ** Sub BIA_data_files() 'Application.ScreenUpdating = False Dim wB As Workbook Dim SumResult As Double Dim OutPut As Range Set FileSystemObj = CreateObject("Scripting.FileSystemObject") Set FolderObj = FileSystemObj.GetFolder("C:\Users\practica.trafico\Desktop\SecuriteeTest\") Set OutPut = Workbooks("Libro1").Sheets("Hoja1").Range("A1") For Each fileobj In FolderObj.Files Set wB = Workbooks.Open(fileobj.Path) Dim rngH, i, j, k As Integer With wB.Sheets("Schedule Daily Bank Structure R") For i = 2 To 500 rngH = Left(.Cells(i, "H").Value, 2) If rngH = 11 Then k = .Cells(i, "A").Value End If j = j + k k = 0 Next i OutPut.Value = j Set OutPut = OutPut.Offset(1, 0) End With wB.Save wB.Close Next fileobj End Sub 

不知道它可能来自哪里

Answer 1

它来自j = j + k 。 你永远不会重置j为0，所以它继续总结。 只需在以下位置添加j=0 ：

 OutPut.Value = j j=0