excel - 如何简化循环以将数据从一张纸带到另一张纸

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

标签： exceldatabasevbaloops