Excel VBA中如何基于随机选中的三个待交换项实现多单元格值交换

核心逻辑不需要预先硬编码固定交换值，只需要通过「值定位-轮换赋值」两步即可完成任意随机三值的交换操作，具体流程如下：

• 前置准备
  先拿到两个基础数据：一是存储为数组格式的「邻域完整解」序列，二是随机生成的3个待交换值集合。如果是直接选中单元格触发交换，可直接拿到3个目标单元格的索引位置，不需要做值匹配。
• 定位目标位置
  如果只拿到待交换的三个值、没有直接拿到单元格索引，就遍历邻域完整解序列，逐个匹配三个待交换值对应的索引，生成位置列表。如果序列存在重复值（比如示例序列首尾均为5），按选中单元格的匹配规则取对应位置的索引即可，避免匹配错误。
  Python实现参考：

  # 邻域完整解序列
  neighbor_solution = [5,14,10,2,4,8,12,13,9,15,6,3,7,1,11,5]
  # 随机生成的三个待交换值，无需预先固定
  swap_values = [13,10,15]
  pos_list = []
  for val in swap_values:
      # 匹配值对应索引，若已有选中单元格索引可直接组装pos_list，跳过该查找逻辑
      pos_list.append(neighbor_solution.index(val))
  

• 执行轮换交换
  三个元素的交换采用轮换赋值逻辑即可，不需要多次两两互换：先暂存第一个位置的原始值，再依次将后一个位置的值赋给前一个位置，最后把暂存的第一个位置的原始值赋给第三个位置即可。
  Python实现参考：

  # 暂存首位原值
  temp_val = neighbor_solution[pos_list[0]]
  # 依次移位赋值
  neighbor_solution[pos_list[0]] = neighbor_solution[pos_list[1]]
  neighbor_solution[pos_list[1]] = neighbor_solution[pos_list[2]]
  neighbor_solution[pos_list[2]] = temp_val
  

• 结果验证
  以上述示例参数运行后，最终输出的序列为[5,14,13,2,4,8,12,15,9,10,6,3,7,1,11,5]，和预期交换结果完全一致。

该方案适配任意随机生成的三个待交换值，不需要在代码中写死任何交换数值，只要拿到待交换值或对应单元格索引即可完成交换。如果需要调整交换后的排列规则，只需要修改pos_list的元素顺序、调整轮换方向即可。

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