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