电子表格请问如何在Excel中,将一列数据自动随机排列,并把结果自动生成为
1.请问如何在Excel中,将一列数据自动随机排列,并把结果自动生成为
写个VBA版本，代码如下：
Sub A列随机排序（）
Dim rcA, i, w, k, c As Long
Dim s As String
rcA = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To rcA
s = Range("A" & i)
'Debug.Print s
Do
Randomize
w = Int((rcA * Rnd + 1))
If Range("B" & w) = "" And w <> c Then
Range("B" & w) = s
c = w
Exit Do
End If
Loop
Next
End Sub
2.EXCEL的列怎么自动标排列数字???
1.首先，打开电脑桌面上的EXCEL，然后双击它。
2.然后，选择排序的那一组数字或日期之类的数据。方法是：左键一直按住，一直到选完要排序的数据才放下左键。
3.把鼠标点到选中数据的最右下角，按住左键一直到你准备排序完成的位置为止。
3.Excel第一列如何加入自动排列按钮?
不用增加按钮。
右键点这个工作表的名字（在工作簿的左下角），查看代码，粘贴如下代码： Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) On Error GoTo Line1 If Target.Row = 1 Then If Cells(2, Target.Column) = "" Then GoTo Line1 Range(Cells(2, Target.Column), Cells(Cells(9999, Target.Column).End(xlUp).Row, Target.Column)).Sort Cells(2, Target.Column), xlDescending End If Line1: End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Line1 If Target.Row = 1 Then If Cells(2, Target.Column) = "" Then GoTo Line1 Range(Cells(2, Target.Column), Cells(Cells(9999, Target.Column).End(xlUp).Row, Target.Column)).Sort Cells(2, Target.Column), xlAscending End If Line1: End Sub 回到Excel，可以实现如下功能： 左键点第一行的任意单元格，该列排升序；右键点，排降序。
4.excel里面如何让按照第一行自动按照月排列：1月、2月、3月、4月
月份序列可以通过以下三种方式完成：
1. 输入“一月”后，鼠标向右拖拽单元格右下角的填充柄，结尾的“自动填充选项”选择“填充序列”
2. 选择要设定月份的单元格，右键——设置单元格格式——自定义——类型——输入 0月 ，确定。输入时可参考数字序列输入方法。
所有设置此格式的单元格都可以在数字序列后自动添加“月”字
3. excel选项——编辑自定义列表——输入序列（以逗号分隔），可以根据自己需求添加目前没有的序列。输入时输入序列的任一元素都可参照第一种方法拖拽出序列
建议直接使用第一种方案（excel2007以上版本均支持），默认情况下，无论是1月 ，还是 1月1日，填充后都会产生序列，而且序列中不会出现2月30日、13月、32日等情况，添加年份后还会根据平闰年决定是否有2月29日
5.EXCEL 如何自动排序
排列方法如下：
Sub 排列（）
For i = 1 To 3 '有几个数就循环几次
Cells(Cells(i, 1), 2) = Cells(i, 1)
Next i
End Sub
达到效果：
6.Excel中自动排序怎么弄
首先要求你的数据区域比较规范，第一行是用来说明下方数据的字段，数据区域无空白行或列。
然后光标放在数据区域任意单元格中，点击数据菜单下“排序”命令1 设置是否有标题行，即第一行是否参加排序2 设置关键字，就是依据什么进行排序，你应该是选择日期那一列3 设置排序类型，在下拉列表中选择日期4 设置排序方式，升序或降序之后就可以确认了。不过如果第一关键字有重复的可能，就应该多排几个关键字，EXCEL一次允许设置三个关键字，如果不够用，可多次排序。