Question

excel vba 代码问题

Sub 三()
Application.EnableEvents = False
Dim str, s$, i%, c As Byte, r As Byte
str = Split("A,B", ",")
Do Until Len(s) = 1
RE: i = Int(Rnd * 2)
If InStr(s, str(i)) = 0 Then
s = s & str(i)
Else: GoTo RE:
End If
Loop
Dim arr, brr(1 To 60), r1 As Byte, k As Byte
arr = [B2:K7]
r1 = 3
k = 17
For c = 1 To UBound(arr, 2)
For r = 1 To UBound(arr)
If arr(r, c) <> "" Then
Cells(r1, k).Value = s '(3,17)单元格有输出随机数
k = k + 1 '(3,18)我想在这里也输出随机数，可是现在
'GoTo oT04 还是在(3,17)里出来随机数。。。
End If
Next
Next
'oT04:
Application.EnableEvents = True
End Sub

看代码的注释。。。这个随机数我想要按顺序输出到(3,17)(3,18)……(3,76)
现在老是在(3,17)这个单元格里变化，请大神帮我看看代码有啥问题。
再看看我的随机数的代码有没有问题。
现在能单个输入了，但是咋就变得全部都是相同的内容了。。。
Dim arr, brr(1 To 60), k As Byte
arr = [B2:K7]
k = 1
For c = 1 To UBound(arr, 2)
For r = 1 To UBound(arr)
If arr(r, c) <> "" Then
If brr(k) = "" Then
brr(k) = s
End If
End If
k = k + 1
Next
Next
[Q3:BX3] = brr

Answer 1

你那个变量s是个固定值，所以全部是一样的

追问

请问怎么改写代码呢

Answer 2

你这个代码写得那个……，唉，没法改，你详细说说要求，重新帮你写

追问

代码需求：1)dim arr=[B2：K7]，for c = 2 to 11,for r = 2 to 7.

当arr(r,c)输入一个单元格内容的时候，[R3：BX3]（红色那一行单元格）按顺序输入一个随机数。当arr(r,c)删除一个单元格内容的时候，[R3：BX3]也删除一个，大致就是这个意思。可以看看上边的代码的意思。全部百度分都加上去了。。

追答

你的意思是不是[B2:K7]这60个单元格对应[R3:BX3]这60个单元格，当B2:K7的数据变化时，对应单元格得到一个随机数，当B2:K7数据清除时，对应单元格的随机数也清除？
对应关系B2—R3，……，K7—BX3

追问

是的，就是这个意思，但是不能直接用worksheet_change，因为这个sub我是要call的。
R3:BX3是59个单元格。

追答

B2:K7是60个，那K7就不管了？
随机数大小范围？

追问

那就R3：BY3吧，其实无所谓，用不到那么远，我只是为了好看
随机数的话，只有两个选择，A或者B，两选一，但是概率都是50%

追答

代码如下：

Sub 三改()
Dim Ar1, Ar2(1 To 60), I%, J%, N%
Ar1 = Range("B2:K7")
Randomize
For I = 1 To UBound(Ar1)
   For J = 1 To UBound(Ar1, 2)
      N = N + 1
      If Ar1(I, J) <> "" Then Ar2(N) = IIf(Rnd() < 0.5, "A", "B")
Next J, I
Range("R3").Resize(, N) = Ar2
End Sub

追问

没按顺序（R3：BY）

追答

你的意思是不按B2——R3这种对应关系吗？

Sub 三()
Dim Ar1, Ar2(1 To 60), I%, J%, N%
Ar1 = Range("B2:K7")
Randomize
For I = 1 To UBound(Ar1)
   For J = 1 To UBound(Ar1, 2)
      If Ar1(I, J) <> "" Then
         N = N + 1
         Ar2(N) = IIf(Rnd() < 0.5, "A", "B")
      End If
Next J, I
Range("R3").Resize(, N) = Ar2
End Sub

追问

对应图：

当B2输入个字母，只能在R3出来一个随机数。

B3输入字母，只能S3出来一个随机数

……

同样的，删除B3的字母，S3也要同时变成空白单元格

SUB 三()的代码可以按顺序输入，但是当B3为空时，S3并没有变为空白单元格。

还有一个问题，比如我从B2输入到B5，应该相对应的R3：U3，前边的随机数

会一直改变。。。本来R3为A的话，可能输入到B5的时候，R3变成了B。

明白你代码的意思，我试试看和我的代码结合修改下

追答

先前那个代码就是这样的呀。当B3为空时，S3肯定变为空白单元格，除非是下面两种情况
一是B3并不为空，比如有空格等不可见符，二是只有B2有数据，后其他都没有数据，既然都能看懂我的代码了，自己也会写了，难道简单的修改也不会。改最后一句：
Range("R3:BX3") = Ar2
你截图也看不见行列标，让人怎样信服。