最短路径Dijkstra计算方法（无需VBA)

幽并客

第一步，新建一个表（名：带权连接矩阵），把路径连接图转化成矩阵形式填入相应的表格，无直接连接的取一个大数值填入。
第二步，新建一个表（名：最优路径），此表用于演算。在“A5"单元格键入公式”=IF((ROW()-3)<=COUNTA(带权连接矩阵!B2:J2),"第"&(ROW()-3)&"步","运算停")“并选中下接复制公式至运算停出现，此公式的目的从“带权连接矩”表获取运算的步聚数。

第三步，在B4单元格键入起点的标号，此外为“V1"

第四步，在C4单元格键入”=MIN(D4:L4)“，以此获取与左侧标号连接点的最短路径值，键入公式后，可下拉复制公式

第五步：在D4单元格键入公式”=INDEX(带权连接矩阵!$B$2:$J$10,MATCH($B4,带权连接矩阵!$A$2:$A$10,0),COLUMN()-3)“，并向右拖动复制单元，获取与V1点相连的路径信息。此步骤也可以手工填入。

第六步：在B5单元格键入公式”=INDEX($D$3:$L$3,,MATCH(C5,D5:I5,0))“，获取本步聚最短连接点的标号

第七步：在D5单元格键入"=IF(D4=D$3,D$3,IF(D$3=$B4,D$3,INDEX(带权连接矩阵!$B$2:$J$10,MATCH($B4,带权连接矩阵!$B$1:$J$1),COLUMN()-3)))",获取与前一个点的连接信息，同时将前一个点的值用标点代替，以防后续步聚参与计算，照样将单元格向右拖复制。

第八步：选中B5至I5单元格，向下拖动复制至运算停处即可。

这样，V1至各点的最优路径便显示在B,C列了。

详情见附件： 最优路径.rar (8.39 KB, 下载次数: 106)

2017-4-13 20:08 上传

点击文件名下载附件

HTbaican

感谢楼主分享！