vba 表格按照D列随机排序代码 首行不参与排序

可以使用以下VBA代码进行实现：

Sub RandomSort()
'定义变量
Dim LastRow As Long
Dim i As Long
Dim J As Long
Dim Temp As Variant

'获取数据的最后一行行号
LastRow = Range("D" & Rows.Count).End(xlUp).Row

'从第二行开始进行随机排序
For i = 2 To LastRow
'生成随机数
J = Int((LastRow - i + 1) * Rnd() + i)
'交换第i行和第j行的数据
For k = 1 To 4
Temp = Cells(i, k).Value
Cells(i, k).Value = Cells(J, k).Value
Cells(J, k).Value = Temp
Next k
Next i

End Sub

这段代码可以将D列中的数据进行随机排序，而且不会影响首行。

相关问题

VBA根据表格内容排序代码

以下是 VBA 根据表格内容排序的代码示例：

Sub SortTable()
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Table1") '将 "Table1" 替换为你的表格名称
    
    With tbl.Sort
        .SortFields.Clear '清除之前的排序设置
        .SortFields.Add Key:=tbl.ListColumns("Column1").Range, SortOn:=xlSortOnValues, Order:=xlAscending '将 "Column1" 替换为你要排序的列名称
        .Header = xlYes '如果表格有表头，则为 xlYes；否则为 xlNo
        .Apply '应用排序
    End With
End Sub

这段代码会将名为 "Table1" 的表格按 "Column1" 列的内容进行升序排序，你可以根据需要修改表格名称和排序列名称。

vba自动排序代码

以下是 VBA 中进行自动排序的代码：

Sub sort_data()
    '设置数据范围
    Dim data_range As Range
    Set data_range = Range("A1:C10")
    
    '按照第一列升序排序
    data_range.Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
    
    '按照第二列降序排序
    data_range.Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlYes
    
    '按照第三列升序排序
    data_range.Sort key1:=Range("C1"), order1:=xlAscending, Header:=xlYes
End Sub

其中，变量 `data_range` 表示要排序的数据范围，可以根据实际情况进行修改。`Sort` 方法中，`key1` 参数表示排序的关键字，`order1` 参数表示排序的顺序，可以选择升序或降序。此外，`Header` 参数表示是否包含表头，如果数据范围中包含表头，则应将该参数设置为 `xlYes`。