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

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

Sub SortRows()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '将Sheet1替换为你要排序的工作表名称
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '找到最后一行
ws.Range("A2:C" & lastRow).Sort key1:=ws.Range("B2:B" & lastRow), _
order1:=xlAscending, Header:=xlYes '按B列升序排序
End Sub

这段代码将按照B列的升序对A列到C列的所有行进行排序。你可以根据需要修改代码中的范围和排序方式。