单元格如何跨表后乘2，再随机排列

zzpsx

想要的效果：把原表中的b列复制到本表b列，对b列随机排序后，在c列把b列单元格乘以2，也就是一个单词变两遍。

以上操作，分步列式我会，如何一步到位？谢谢各位。
单元格如何跨表后乘2，再随机排列.rar (16.36 KB, 下载次数: 10)

2023-1-29 11:04 上传

点击文件名下载附件

taller

taller

陆离Lowry

陆离Lowry

。。。。。。。。。。。。。

zzpsx

谢谢各位高手，问题解决了。

zzpsx

陆离Lowry 发表于 2023-1-29 11:41
。。。。。。。。。。。。。

高手，还想麻烦一下，如果这样，代码怎么改：
想要的效果：把原表中的b到d列复制到本表b到d列，对b列随机排序后，在e列把b列单元格乘以2，也就是一个单词变两遍

半百

半百

zzpsx 发表于 2023-1-29 13:14
高手，还想麻烦一下，如果这样，代码怎么改：
想要的效果：把原表中的b到d列复制到本表b到d列，对b列随 ...

准提部林

Sub TEST_A1()
Dim Arr, Brr, i&, V&, N&
Arr = Range(Sheet1.[a1], Sheet1.Cells(Rows.Count, 2).End(3))
ReDim Brr(1 To UBound(Arr) * 2, 1 To 3)
Randomize
For i = UBound(Arr) To 2 Step -1
    V = Int(Rnd * i) + 1: N = N + 1
    Brr(N, 1) = N
    Brr(N, 2) = Arr(V, 2)
    Brr(N * 2 - 1, 3) = Arr(V, 2)
    Brr(N * 2, 3) = Arr(V, 2)
    Arr(V, 2) = Arr(i, 2)
Next i
Sheet2.[a1:c999].Clear
Sheet2.[a1].Resize(N * 2, 3) = Brr
End Sub