如何简化循环以将数据从一张纸传送到另一张纸

Question

我在一个工作簿中有两个工作表（“交易日志”和“统计”）。 一个是数据库，另一个是用于分析数据库中数据的输出。现在，我想编写一个循环，该循环将从数据库中提取必要的信息到输出工作表中。它或多或少是关于检查1-2个条件，然后对其求和以填充分析工作表中的输出字段。

我现在继续为每个输出字段编码一个循环。但是我非常确定我可以简化这一点吗？

谢谢您的想法！

这是我第一次输出单个循环...我大约有120-140个输出：

Sub update_statistics()

Dim lRow As Integer 'Last Row
Dim i As Integer 'Loop
Dim pair As String 'Currency Pair

lRow = Worksheets("Trade Log").Range("A" & Rows.count).End(xlUp).Row

'Total Stats Calculations

'Total Number of Trades

If Cells(3, 4).Value = "All" Then

Worksheets("Trade Log").Select

For i = 9 To lRow

    Worksheets("Statistics").Cells(7, 4).Value = (i + 1) - 8

Next i

Else

pair = Cells(3, 4).Value

Worksheets("Trade Log").Select

For i = 9 To lRow

    Worksheets("Statistics").Cells(7, 4).Value = 
 WorksheetFunction.CountIf(Range("D:D"), pair)

 Next i

 End If

 End Sub