使用vba，把一个excel表中内容为“收益井”的行挑出来并重新排序

你可以使用以下代码来实现这个功能：

Sub SortRows()
Dim lastRow As Long
Dim i As Long
Dim j As Long
Dim temp As Variant

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

For i = 1 To lastRow
If ActiveSheet.Cells(i, "A").Value = "收益井" Then
For j = i + 1 To lastRow
If ActiveSheet.Cells(j, "A").Value <> "收益井" Then
temp = ActiveSheet.Rows(j).Value
ActiveSheet.Rows(j).Value = ActiveSheet.Rows(i).Value
ActiveSheet.Rows(i).Value = temp
Exit For
End If
Next j
End If
Next i
End Sub

这段代码会遍历整个表格，找到内容为“收益井”的行，并将它们按照顺序排列在一起。