求老师们帮忙下。随机生成的字母输入到指定单元格

15821860382

把代码每次生成的内容按顺序填入红色单元格内（N3：BT3）
最好要和sub三一样，change事件。代码在“三3”里
Sub 正反()
Dim str, s$, i%
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

End Sub
请老师们帮忙下，谢谢

蓝桥玄霜

看不懂你的问题，建议在提问中多举几个例子来说明。

15821860382

蓝桥玄霜 发表于 2018-7-8 09:47
看不懂你的问题，建议在提问中多举几个例子来说明。

哇，老师好。看过您的许多文章。
我是要把图片里的代码生成的随机字母填写入红色的单元格例。
您可以点击表格里的ABD按钮
我现在是随机生成了一整行的字母，我需要单个单个的填写进去。。。

15821860382

Sub 四()
Dim str, s$, i%, r, c
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

For c = 13 To 72
r = 3
If Cells(r, c).Value = "" Then
Cells(r, c).Value = s
GoTo oT04
End If

Next
oT04:

End Sub

这个代码我想点击一下就运行一次，现在不停的运行了，请问怎么修改呢

15821860382

我已经弄好了，谢谢