将1维阵列写入单个列时发生错误

Question

Sub Lottery() 
Dim A As Long 
Dim B As Long 
Dim C As Long 
Dim D As Long 
Dim E As Long 
Dim N As Long 
Dim xLot() As String 

N = 0 
ReDim xLot(1 To 169911) 
For A = 1 To 27 
    For B = A + 1 To 28 
     For C = B + 1 To 29 
      For D = C + 1 To 30 
       For E = D + 1 To 31 
        N = N + 1 

        xLot(N) = A & "-" & B & "-" & C & "-" & D & "-" & E 
        'Debug.Print xLot(N), N 
        'Range("a" & N).Value = xLot(N) 

       Next E 
      Next D 
     Next C 
    Next B 
Next A 

Range("A1:A169911").Resize(169911, 1).Value = Application.WorksheetFunction.Transpose(xLot) 

End Sub 

使用转置运行时错误13类型不匹配。我在另一个博客上读到我无法写入超过65535个单元格。在另一个例子中，在第38840至169911行（组合数）之后，这些单元具有＃N/A。我已经在立即窗口中运行它，并为所有组合的数组帐户。任何帮助将不胜感激。

Answer 1

转置的上限约为65k项。

如果改为

ReDim xLot(1 To 169911, 1 to 1) 
'.... 
xLot(N, 1) = A & "-" & B & "-" & C & "-" & D & "-" & E 
'... 

，那么你就不必移调：

Range("A1:A169911").Value = xLot 

Answer 2

你不能使用超过65535个值的转置功能，因为转部分列转换成行的范围（反之亦然），并且在Excel工作表中只能有65535列。您可以通过给阵列的第二维度绕过转功能，所以更改ReDim语句：

ReDim xLot(1 To 169911,0) 

和你的赋值语句：

xLot(N,0) = A & "-" & B & "-" & C & "-" & D & "-" & E 

...最后是你的范围语句：

Range("A1:A169911").Resize(169911, 1).Value = xLot 

编辑：只是测试它，该代码为我工作：

Sub Lottery() 
    Dim A As Long 
    Dim B As Long 
    Dim C As Long 
    Dim D As Long 
    Dim E As Long 
    Dim N As Long 
    Dim xLot() As String 

    N = 0 
    ReDim xLot(1 To 169911, 0) 
    For A = 1 To 27 
     For B = A + 1 To 28 
      For C = B + 1 To 29 
       For D = C + 1 To 30 
        For E = D + 1 To 31 
         N = N + 1 

         xLot(N, 0) = A & "-" & B & "-" & C & "-" & D & "-" & E 
         'Debug.Print xLot(N), N 
         'Range("a" & N).Value = xLot(N) 

        Next E 
       Next D 
      Next C 
     Next B 
    Next A 

    Range("A1:A169911").Resize(169911, 1).Value = xLot 
End Sub