求个EXCEL按次序重新排列字母的公式！

VBA

要在B列按照字母顺序重新排列A列的数据，可以使用以下公式：=IFERROR(INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,IFERROR(INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:$A$20,MATCH(1E+99,INDEX($B$1:$B$10,1/(1+绝对值((INDEX($A$1:如果你需要将这个公式向下拖动并复制到其他单元格，可以使用VBA代码来实现。以下是一个示例代码：Sub SortLetters()Dim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet1")ws.Cells(1, "B").SelectWith wsFor Each cell In .Range("B1:B20")If IsError(Application.WorksheetFunction.MATCH(1E+99, .Range("B:B"))) Thencell.Value = "Data Not Found" Exit ForEnd IfNext cellEnd WithEnd Sub这个代码会在B1到B20单元格之间循环，查找并返回匹配的结果。您可以根据需要修改单元格范围和错误处理代码。希望对您有所帮助！