vba 如何将数据重新排列

在VBA（Visual Basic for Applications）中，你可以使用多种方法来重新排列数据。以下是一些常见的方法：

1. 使用`Sort`方法

假设你有一个名为`Sheet1`的工作表，数据位于A列，你想要根据A列的值进行排序：

```vba

Sub SortData()

With Sheet1

.Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes

End With

End Sub

```

2. 使用`Copy`和`PasteSpecial`方法

如果你想要根据一个列的值来重新排列数据，但不想改变原始数据的位置，你可以使用以下方法：

```vba

Sub SortDataWithoutChangingOriginal()

Dim SourceRange As Range

Dim TargetRange As Range

Dim LastRow As Long

Set SourceRange = Sheet1.Range("A1:A" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row)

Set TargetRange = Sheet1.Range("B1")

LastRow = SourceRange.Rows.Count

' Copy data

SourceRange.Copy

' Clear TargetRange

TargetRange.ClearContents

' Paste data

TargetRange.PasteSpecial Paste:=xlPasteValues

' Sort data

With TargetRange

.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlYes

End With

' Clear clipboard

Application.CutCopyMode = False

End Sub

```

3. 使用`Array`和`Sort`方法

如果你有一组数据，并且想要根据某个条件进行排序，你可以使用以下方法：

```vba

Sub SortArray()

Dim Data As Variant

Dim i As Integer

' 假设数据在Sheet1的A列

Data = Sheet1.Range("A1:A" & Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row).Value

' 使用Bubble Sort算法进行排序

For i = LBound(Data, 1) To UBound(Data, 1) 1

If Data(i, 1) > Data(i + 1, 1) Then

' 交换行

Dim Temp As Variant

Temp = Data(i, 1)

Data(i, 1) = Data(i + 1, 1)

Data(i + 1, 1) = Temp

End If

Next i

' 将排序后的数据写回工作表

Sheet1.Range("A1").Resize(UBound(Data, 1)).Value = Data

End Sub

```

以上是一些常见的VBA排序方法。你可以根据具体需求选择合适的方法。