Whether it is a row or a column, the principle is the same. You need to add an auxiliary row or column, use the random function rand () to get the value, and then sort by this row or column.
=======
Child bbb ()
Dim a as an integer.
Dim b is an integer
Dim c is an integer
A = worksheet function. CountA(Range("a 1:a32 "))
c = 1
At c<= a
b = Int(Rnd * a) + 1
If cell (b, 1). Value < > ""So
Cell (b, 1). choose
choose The' copy' here has changed, and it turned out to be cutting, not copying.
Cell (c, 3). choose
ActiveSheet。 paste
c = c + 1
other
If ... it will be over.
ring
End joint