帮我写一段excel-visual-basic代码对B栏进行类似名称的排序

以下是对B栏进行类似名称的排序的Excel VBA代码：

Sub SortByName() Dim LastRow As Long LastRow = Cells(Rows.Count, "B").End(xlUp).Row '获取数据最后一行的行号

Range("B2:B" & LastRow).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes '按B栏升序排序

End Sub

注：该代码会将B栏中的所有数据（包括标题）按名称升序排序。如果需要将数据按照其他方式排序，可根据需要修改代码中的排序参数。