VBA数组和string错误
在这里得到一个“范围没有价值”的错误。
我想为一个Excel支架做一个自动评分，并运行一个循环，所以如果
赢家（i）=猜（i）
分（i）=真
pointSum + = pointSum ..
现在玩这就是为什么一切只能到12。
Sub foo() Dim Player(1 - 12) As String Player(1) = Worksheets("Sheet1").Cells("M2") Player(2) = Worksheets("Sheet1").Cells("M4") Player(3) = Worksheets("Sheet1").Cells("M10") Player(4) = Worksheets("Sheet1").Cells("M12") Player(5) = Worksheets("Sheet1").Cells("M22") Player(6) = Worksheets("Sheet1").Cells("M24") Player(7) = Worksheets("Sheet1").Cells("M32") Player(8) = Worksheets("Sheet1").Cells("M34") Player(9) = Worksheets("Sheet1").cell("L1") Player(10) = Worksheets("Sheet1").cell("L3") Player(11) = Worksheets("Sheet1").cell("L5") Player(12) = Worksheets("Sheet1").cell("L7") Player(13) = Range("L9").Value Player(14) = Range("L11").Value Player(15) = Range("L13").Value Player(16) = Range("L15").Value Player(17) = Range("L20").Value Player(18) = Range("L22").Value Player(19) = Range("L24").Value Player(20) = Range("L26").Value Player(21) = Range("L28").Value Player(22) = Range("L30").Value Player(23) = Range("L32").Value Player(24) = Range("L34").Value Player(25) = Range("K2").Value Player(26) = Range("K6").Value Player(27) = Range("K10").Value Player(28) = Range("K14").Value Player(29) = Range("K21").Value Player(30) = Range("K25").Value Player(31) = Range("K29").Value Player(32) = Range("J4").Value Player(33) = Range("J12").Value Player(34) = Range("J23").Value Player(35) = Range("J31").Value Dim Winner(1 - 12) As String Winner(1) = "Mohler" Winner(2) = "Scotter" Winner(3) = "DKGAY" Winner(4) = "Lassie" Winner(5) = "Mohler" Winner(6) = "Gunnar" Winner(7) = "Gord'n" Winner(8) = "Hellmers" Winner(9) = "Evan Brown" Winner(10) = "Jerru" Winner(11) = "Case" Winner(12) = "Lassie" Winner(13) = "Mohler" Winner(14) = "" Winner(15) = "" Winner(16) = "Mohler" Winner(17) = "Mohler" Winner(18) = "" Dim Guess(1 - 12) As String Guess(1) = Player(10) Guess(2) = Player(14) Guess(3) = Player(18) Guess(4) = Player(23) Guess(5) = Player(25) Guess(6) = Player(26) Guess(7) = Player(27) Guess(8) = Player(28) Guess(9) = Player(29) Guess(10) = Player(30) Guess(11) = Player(31) Guess(12) = Player(32) Guess (13) Guess (14) Guess (15) Guess (16) Guess (17) Guess (18) Dim points(1 - 12) As Boolean points (1) points (2) points (3) points (4) points (5) points (6) points (7) points (8) points (9) points (10) points (11) points (12) points (13) points (14) points (15) points (16) points (17) points (18) Dim pointSum As Double Dim pointValue(1 - 6) As Double pointValue(1) = 10 pointValue(2) = 20 pointValue(3) = 30 pointValue(4) = 40 pointValue(5) = 50 pointValue(6) = 60 For i = 1 To 12 Step 1 If Guess(i) = Winner(i) Then points(i) = True Else points(i) = False Next Loop Until points(i) = True Or points(i) = False End Sub 语法错误。 尝试：
Dim Player(1 to 12) As String
我会重新考虑如何加载你的数组。
如果你有一个连续的范围，你可以直接将它添加到一个数组，因为你不是连续的build议你尝试这样的事情（所以你调整范围，而不是单个数组元素）。
Dim rng1 As Range Dim rng2 As Range Dim lngCnt As Long Dim Player() As String Set rng1 = Sheets(1).Range("M2,M4,M6,M10") ReDim Player(1 To rng1.Cells.Count) For Each rng2 In rng1 lngCnt = lngCnt + 1 Player(lngCnt) = rng2.Value Next