IF公式过长求助：如何简化跨地点里程计算公式？

嘿，我完全懂你被超长IF公式折磨的痛苦——39个地点的组合数可是不少，嵌套IF不仅写起来崩溃，后期维护改个里程都要翻半天公式。给你几个更简洁、易维护的方案，按你的Excel版本选就行：

这是最通用的解法，核心是把所有里程数据整理到一个辅助表里，然后用查找函数替代嵌套IF：

1. 先做一个里程对照表
   新建一个工作表（比如叫「里程表」），列成这样：

   统一地点组合	里程
   sams到Petes	12
   sams到mc d	8
   mc d到Petes	5

   👉 技巧：为了减少一半的条目，可以把组合统一成「按首字母排序的地点」，比如不管是「mc d到sams」还是「sams到mc d」，都统一写成「mc d到sams」（因为m在s前面），这样不需要重复存双向数据。

2. 写查找公式
   假设你的地点组合在A列，在B2单元格输入：

   =XLOOKUP(TEXTJOIN("到",TRUE,SORT(TEXTSPLIT(A2,"到"))), 里程表!$A$2:$A$1521, 里程表!$B$2:$B$1521, "无数据")
   

   解释下：

   • TEXTSPLIT(A2,"到")：把A2的字符串拆成两个地点（比如拆成「sams」和「Petes」）
   • SORT(...)：对两个地点按字母排序，统一组合格式
   • TEXTJOIN("到",TRUE,...)：把排序后的地点再拼成「X到Y」的格式，和辅助表的键匹配
   • XLOOKUP：去辅助表里找对应的里程，找不到就显示「无数据」

   如果是旧版Excel（没有TEXTSPLIT），可以用LEFT/RIGHT拆分：

   =XLOOKUP(IF(LEFT(A2,FIND("到",A2)-1)<RIGHT(A2,LEN(A2)-FIND("到",A2)),A2,RIGHT(A2,LEN(A2)-FIND("到",A2))&"到"&LEFT(A2,FIND("到",A2)-1)), 里程表!$A$2:$A$1521, 里程表!$B$2:$B$1521, "无数据")
   

和方案1逻辑一样，只是用INDEX+MATCH替代XLOOKUP，适合没有XLOOKUP的旧版本：

=INDEX(里程表!$B$2:$B$1521,MATCH(TEXTJOIN("到",TRUE,SORT(TEXTSPLIT(A2,"到"))),里程表!$A$2:$A$1521,0),"无数据")

如果你偶尔会调整地点或里程，写个自定义函数会更省心：

1. 按Alt+F11打开VBA编辑器，插入一个模块
2. 粘贴以下代码：

   Function GetMileage(locationCombo As String) As Variant
       Dim splitArr As Variant
       Dim lookupKey As String
       ' 拆分地点组合
       splitArr = Split(locationCombo, "到")
       ' 统一组合格式（按字母排序）
       If splitArr(0) < splitArr(1) Then
           lookupKey = locationCombo
       Else
           lookupKey = splitArr(1) & "到" & splitArr(0)
       End If
       ' 查找里程（这里假设里程表在Sheet2，A列是组合，B列是里程）
       On Error Resume Next
       GetMileage = Application.WorksheetFunction.VLookup(lookupKey, Sheet2.Range("A:B"), 2, False)
       If Err.Number <> 0 Then GetMileage = "无数据"
       On Error GoTo 0
   End Function
   

3. 回到Excel，在单元格里直接写：=GetMileage(A2) 就行，不用再写长公式！

不管选哪个方案，都比嵌套IF好太多——不仅公式短，后期要加新地点或者改里程，直接改辅助表就行，不用动单元格里的公式。

内容的提问来源于stack exchange，提问作者Lost