请问哪里写错了？回填单元格都是空的？

LED147258

Sub 按钮2_Click()
Dim WD As Worksheet
Set WD = ThisWorkbook.Sheets("排列")
Dim a, b, c, d, e, a1, a2, b1, c1, d1 As String
Dim arr, brr()
arr = WD.Range("AZ3:BG1227").Value
e = 0
For a = 1 To 1225
If arr(a, 1) <> "" And arr(a, 2) <> "" Then
For b = 1 To 1225
If arr(b, 3) <> "" And arr(b, 4) <> "" Then
If arr(b, 3) = arr(a, 2) Then
For c = 1 To 1225
If arr(c, 5) <> "" And arr(c, 6) <> "" Then
If arr(c, 5) = arr(b, 4) Then
For d = 1 To 1225
If arr(d, 7) <> "" And arr(d, 8) <> "" Then
If arr(d, 7) = arr(c, 6) Then
e = e + 1
ReDim brr(1 To e, 1 TO 5)
brr(e, 1) = arr(a, 1)
brr(e, 2) = arr(a, 2)
brr(e, 3) = arr(b, 4)
brr(e, 4) = arr(c, 6)
brr(e, 5) = arr(d, 8)
End If
End If
Next d
End If
End If
Next c
End If
End If
Next b
End If
Next a
WD.Range("CS3").Resize(e, 1) = brr()
Erase arr
Erase brr()
ThisWorkbook.RefreshAll
MsgBox ("中奖")
End Sub

杨建营

你定义了五列，却只输入1列数据，肯定有空的。

杨建营

这个定义成字符串，也是个错误。

吴中泉

除了2楼讲的:还要注意这句ReDim brr(1 To e, 1 TO 5)
改成ReDim  preserve brr(1 To e, 1 TO 5) ,重新定义二维数组,加preserve就是要保留原数据.

LED147258

杨建营 发表于 2023-4-12 07:39
你定义了五列，却只输入1列数据，肯定有空的。

谢谢！！！

LED147258

吴中泉 发表于 2023-4-12 08:21
除了2楼讲的:还要注意这句ReDim brr(1 To e, 1 TO 5)
改成ReDim  preserve brr(1 To e, 1 TO 5) ,重新定义 ...

ReDim Preserve brr(1 To e, 1 To 5)
这段代码，加上Preserve，我认为是对的，但是提示9下标越界。
我看了篇文章，说是e不能在行上，只能在列上。
说得用其他方法绕道或行列转换，感觉麻烦，所以想放弃ReDim Preserve brr(1 To e, 1 To 5)了。
会是，代码没问题，而这段代码以上的步骤导致下标越界吗？e的值本次计算结果约等于7.5万，大于10万，也可能。

吴中泉

LED147258 发表于 2023-4-12 21:29
ReDim Preserve brr(1 To e, 1 To 5)
这段代码，加上Preserve，我认为是对的，但是提示9下标越界。
我 ...

你说的对，像多维数组只能在末维动态增加元素。如你这二维数组，这样用不对。只能在1 to 5这维增加。
你可以预测一下e值的大小，一次性把数组定义大点。