本帖最后由 yjzstar 于 2012-5-5 14:20 编辑 Q:在一个工作表中的某列中,以B列为例,在该列中有若干个非空单元格,而且这些非空值的每个单元格之间不是连续的。现在想对这些非空单元格里的内容随便排序,即打乱原来的顺序
说明:如果某单元格原来是空的,新排列后还要是空的,原来是非空单元格,新的排列后也是非空值单元格,只是单元格里的内容改变了而已。而且仅仅是要求B列随便排序,不要影响其它列的内容发生改变。
A:利用VBA中的rnd()函数,外加一个循环语句,便可以轻松的实现以上过程!
- Sub ssd()
- Dim n As Integer, n1 As Integer, m As Integer
- Dim s As String
- Application.ScreenUpdating = False
- m = Cells(Rows.Count, 1).End(xlUp).Row
- For i = 1 To 500
- n = Rnd() * m
- n1 = Rnd() * m
- If n <> 0 And n1 <> 0 Then
- If Range('B' & n) <> '' And Range('B' & n1) <> '' Then
- s = Range('B' & n).Value
- Range('B' & n) = Range('B' & n1)
- Range('B' & n1).Value = s
- End If
- End If
- Next
- Application.ScreenUpdating =true
- End Sub
如果数据量大,以上过程可以用数组实现,以提高运行速度。另外可以根据自己的需要进行扩展,可以对某一区域进行随机处理!
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。