Excel VBA Loop在多个范围上

Question

您好，即时通讯正在寻找一些帮助，我一直在尝试解决。 它仅适用于足球预测电子表格。

基本上我有一排人的名字，猜测结果和分数。

然后我将前2行作为实际结果和得分。

我创建了一个函数来计算它，但是我需要遍历范围中的每一行以求和。

 `ResultRange = Range("B2", Range("A2").End(xlDown)).Rows.Count
 ScoreRange = Range("C2", Range("C2").End(xlDown)).Rows.Count
 GuessResRange = Range("D2", Range("D2").End(xlDown)).Rows.Count
 GuessScoreRange = Range("E2", Range("E2").End(xlDown)).Rows.Count

Range("B14").Value = ScorePoints(InResultRows, InScoreRows,      InGuessResult, InGuessScore)

到目前为止，这就是我所拥有的。

基本上用于10个游戏ResultRows，ScoreRows，GuessResult，GuessScore

会从B2，C2，D2，E2变为B3，C3，D3，E3，依此类推，直到达到总分为止。 然后将总数计入范围B14。 然后继续到下一个播放器上吗？

Answer 1

仍然不清楚您要做什么，但这可能会让您入门：

Sub FootballPredict()

    Dim GuessResRange As Range
    Dim rngLoop As Range
    Dim dblSum As Double

    Set GuessResRange = Range("B2", Range("B2").End(xlDown))

'    For Each rngLoop In GuessResRange
'        'could use this loop to do something
'    Next rngLoop

    dblSum = WorksheetFunction.Sum(GuessResRange)
    Range("B14").Value = dblSum

End Sub