Excel，循环执行多个计算

Question

我编写了一个简单的代码来显示连接到外部数据源的不断变化的单元格值中的最大值。我有 400 个不同的连接，想对每个连接重复这个计算，我的代码只更新了第一行：

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim HighVal As Integer
Dim LivePrice As Integer

LivePrice = Range("E7")
HighVal = Range("G7")

If LivePrice > HighVal Then Range("G7") = LivePrice
End Sub

对最有效的方法感到困惑。

Answer 1

我不确切知道您的文件是如何布局的，也不确定为什么要将单元格 B7 替换为 B7 的内容。循环方式如下。

假设你所有的连接都在不同的行中，B7，C7等你会写一个这样的循环。

    dim i as long

    for i = 2 To 400
        LivePrice = Cells(i, 7).Value HighVal = Cells(i, 7).Value
        If LivePrice > HighVal Then Cells(i, 7).Value = LivePrice
    next i

这将从 2 循环到 400，这将是从 B 到结尾的所有行。对于每一行，它将在 Cell(Row Number, 7) 上执行您的计算。