有两个办法：
1、将比较语句做一个循环：For j = 0 To UBound(arr)
2、如果不会变换使用上述方法，增加一个数组过渡，现在的arr为固定数组:dim arr(4)，假定过渡数组为：arr1 = Split(Range("a" & i), "-")，将arr1循环赋值给arr，就用你现有代码即可。
但最想说的是，你的代码太繁杂，你应该把判断条件说出来，感觉你的代码可大大简化。
墨尔本-北京-墨尔本
北京-香港
你要把每一行这样的数据分割成数组 想要把第一个元素赋值给单元格2 还是最后一个数组元素呢？或者其他
看你代码好像取数组中间元素多一点，可如果数组是偶数个数呢？
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024