求一代码：单元格变化触发单元格内容移动

来源：百度知道 编辑：UC知道 时间：2024/05/16 14:09:35
一个问题，请帮忙啊！

excel 中，如果 单元格A1内容是“3”或者有三个字符（得到一个变量 x ），则把 A2单元格的内容，移动到单元格Ay （y=1+x）， 若A1内容是5了，则原A2内容移动到A6 (1+5)

请问 如何 在单元格实时变化中，实现？而不是运行代码后？
不能实时呀...

Function M(cell1 As Range, cell2 As Range)

If cell1 = 0 Then M = 0
If cell1 = 2 Then M = 1
End Function

某单元格内
=m(B2,A2)
你要的功能我不帮你实现了，这个示例一下解决实时问题的方法。

Sub test()
Dim AR1 As Range
Dim AR2 As Range
If Selection.Areas.Count <> 2 Then Exit Sub '判断选中单元格是不是有2个区域组成
Set AR1 = Selection.Areas(1) '设置变量Ar1作为剪的区域
Set AR2 = Selection.Areas(2) '设置变量Ar2作为贴的区域
'将AR1剪贴到Ar2的左上角单元格中
AR1.Cut
AR2.Cells(1).Insert
End Sub