Question

我正在寻找一些关于循环的帮助我一直在尝试解决。它仅用于足球预测电子表格。

基本上我有各行各样的人名，其中猜测结果和分数。

然后我将前两行作为实际结果和分数。

我已经创建了一个计算它的函数，但是我需要遍历范围中的每一行来累加总数。

 `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

多个范围上的Excel VBA循环

1 个答案: