如何在电子表格中通过编程实现被标红的字母与其它没有被标红的字母随机上下左右移动，注意标红的字母不会因为重新计算而消失。

Question

如何在电子表格中通过编程实现被标红的字母与其它没有被标红的字母随机上下左右移动，注意标红的字母不会因为重新计算而消失，即红颜色要跟着字母一起移动。

Answer 1

首先，获取单元格的使用范围
maxRow=Excel.WorkSheet.UserRange.Row.Count
maxCoL=Excel.WorkSheet.UserRange.Column.Count
其次，用两个（分别代表行和列）不大于使用范围(maxRow,maxCoL)的随机数，取得一个随机单元格。
RandRow=rand()*maxRow
RandCol=rand()*maxCoL
先判断是否边缘：RandRow=1或者=maxRow
RandRow=1与下面单元格做交换，
RandRow=maxRow与上面单元格做交换，
1>RandRow>maxRow用一个随机奇偶数判断与上还是下交换

取得当前单元格
VarObjectCell1=Excel.WorkSheet.Cells(RandRow, RandCol)
如果和下面做交换
RandRow=RandRow+1
如果和上面做交换
RandRow=RandRow-1
获取要交换的单元格
VarObjectCell2=Excel.WorkSheet.Cells(RandRow, RandCol)
获取字体颜色
VarIndexColor1=VarObjectCell1.Font.ColorIndex
VarIndexColor2=VarObjectCell2.Font.ColorIndex
获取值
VarValue1=VarObjectCell1.value
VarValue2=VarObjectCell2.value
交换
VarObjectCell2.value=VarValue1
VarObjectCell2.Font.ColorIndex =VarIndexColor1
VarObjectCell1.value=VarValue2
VarObjectCell1.Font.ColorIndex =VarIndexColor2

望采纳