【自定义函数】将A列数据随机排列到F列

WANGL2

Sub 将A列数据随机排列到F列()

Dim n As Long

n = [a65536].End(xlUp).Row

[f1].Resize(n, 1) = [a1].Resize(n, 1).Value

[g1].Resize(n, 1) = "=rand()"

[f:g].Sort [g1]

[g:g] = ""

End Sub

laoda1228

天天一句 VBA