使用vba，把一个excel表格中具有相同内容的行进行排序

可以使用VBA中的Sort方法来对Excel表格中具有相同内容的行进行排序。以下是一个示例代码：

Sub SortRowsWithSameContent()
Dim lastRow As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim temp As Variant

lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastRow - 1
For j = i + 1 To lastRow
If WorksheetFunction.CountIf(Range("A" & i & ":Z" & i), Cells(j, 1).Value) > 0 Then
For k = 1 To 26
temp = Cells(i, k).Value
Cells(i, k).Value = Cells(j, k).Value
Cells(j, k).Value = temp
Next k
End If
Next j
Next i

Range("A1:Z" & lastRow).Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlYes
End Sub

这个代码会遍历Excel表格中的每一行，如果发现有相同内容的行，则会将它们交换位置，最后再对整个表格进行排序。注意，这个代码只对A列到Z列的内容进行比较和排序，如果需要对更多列进行操作，可以修改代码中的范围。