vba b列为条件按在升序排列

您可以使用以下VBA代码以B列作为条件对数据进行升序排列：

Sub SortByCondition()
    Dim lastRow As Long
    Dim sortRange As Range
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 设置排序范围为A列到最后一行的B列
    Set sortRange = Range("A1:B" & lastRow)
    
    ' 使用B列作为条件进行升序排序
    With sortRange
        .Sort Key1:=.Columns(2), Order1:=xlAscending, Header:=xlYes
    End With
End Sub

请注意，此代码假定数据从A列开始，并且在B列中有条件。您可以根据实际情况进行调整。

要使用此代码，请按下Alt + F11打开VBA编辑器，然后将代码粘贴到一个模块中。然后，您可以在Excel中按下Alt + F8打开宏对话框，并选择SortByCondition宏来运行代码