随机提取单元格中的内容

gitigou

这个要怎么做，求用VBA解
补充：谢谢各位大神的回复，是我没说清楚。我想把合并后的数据放在sheet2中。sheet2中A列有多少个序号，B列就放多少合并的内容，序号是不确定的，B列不考虑重复项
随机抽取数据.rar (7.71 KB, 下载次数: 33)

2018-9-22 21:07 上传

点击文件名下载附件

boyayes

=MID(A$2,INT(ROW(A4)/4)*3-2,2)&MID(B$2,(MOD(ROW(A4),4)+1)*3-2,2)&C$2

chis3

Sub test()
    Dim i As Byte, j As Byte
    i = Fix(Rnd() * 5): j = Fix(Rnd() * 4)
    Sheets(2).[a1] = Split(Sheets(1).[a2].text, ",")(i) & Split(Sheets(1).[b2].text, ",")(j) & Sheets(1).[c2].text
End Sub

gitigou

boyayes 发表于 2018-9-22 21:28
=MID(A$2,INT(ROW(A4)/4)*3-2,2)&MID(B$2,(MOD(ROW(A4),4)+1)*3-2,2)&C$2

谢谢，不过我想要VBA的

gitigou

chis3 发表于 2018-9-22 21:33
Sub test()
    Dim i As Byte, j As Byte
    i = Fix(Rnd() * 5): j = Fix(Rnd() * 4)

试了，提示下标越界

719404338

1. Sub t()
   
2. Dim i%, j%, k
   
3. For k = 2 To 100
   
4. i = WorksheetFunction.RandBetween(0, 4)
   
5. j = WorksheetFunction.RandBetween(0, 3)
   
6. Range("g" & k) = Split(Range("a2").Value, "，")(i) & Split(Range("b2").Value, "，")(j) & [c2]
   
7. Next k
   
8. End Sub

复制代码

719404338

gitigou 发表于 2018-9-22 21:38
试了，提示下标越界

你的逗号是全角中文，不是半角英文。

chis3

gitigou 发表于 2018-9-22 21:38
试了，提示下标越界

Sub test()
    Dim i As Byte, j As Byte, k As Byte, arr(1 To 7, 1 To 1)
    For k = 1 To 7
        i = Fix(Rnd() * 4): j = Fix(Rnd() * 3)
        arr(k, 1) = Split([a2].Text, "，")(i) & Split([b2].Text, "，")(j) & [c2].Text
    Next k
    Sheets(2).Activate
    [b2].Resize(7, 1) = arr
End Sub

小花鹿

应该把全部组合找出来                                                                                                  

gitigou

chis3 发表于 2018-9-22 21:45
Sub test()
    Dim i As Byte, j As Byte, k As Byte, arr(1 To 7, 1 To 1)
    For k = 1 To 7

再请教一下，我想根据sheet2中的序号提取合并，序号是不确定的，可能多于7个或少于