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

陆离Lowry

陆离Lowry

改。。。。。。。

zzpsx

陆离Lowry 发表于 2023-1-29 13:33
改。。。。。。。

还想麻烦下高手，再加个f列，f列上把b列的单词为三遍，谢谢。


原代码：

Sub RndSort2()
Dim arr, brr, i%, r%, temp
With Sheets("原表")
    arr = .Range("B2:D" & .Range("B" & Rows.Count).End(3).Row)
End With
ReDim brr(1 To UBound(arr) * 2, 1 To 4)
Randomize
For i = 1 To UBound(arr) * 2
    If i <= UBound(arr) Then
        r = Int(Rnd * (UBound(arr) - i + 1)) + i
        For j = 1 To 3
            temp = arr(r, j): arr(r, j) = arr(i, j): brr(i, j) = temp
        Next
    End If
    brr(i, 4) = brr(Int((i + 1) / 2), 1)
Next
With Sheets("想要的效果")
    [B1:E1000].ClearContents
    [B1].Resize(UBound(brr), 4) = brr
End With
End Sub

gwjkkkkk

zzpsx 发表于 2023-1-31 19:04
还想麻烦下高手，再加个f列，f列上把b列的单词为三遍，谢谢。

参与一下。。。

陆离Lowry

zzpsx 发表于 2023-1-31 19:04
还想麻烦下高手，再加个f列，f列上把b列的单词为三遍，谢谢。

咋一遍一遍来

zzpsx

陆离Lowry 发表于 2023-1-31 20:44
咋一遍一遍来

It's over.

zzpsx

如何用姓名列表批量命名生成表的b1单元格.rar (32.62 KB, 下载次数: 0)

2023-2-2 18:29 上传

点击文件名下载附件

不好意思，为了让学生使用更方便些，还需要每个子表的b1单元格显示姓名。

zzpsx

我原来在17楼帖子中有如下错误：b2单元格应改为b1单元格，现在已经随附件一起改正，麻烦各位高手了。