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

发布网友发布时间：2024-10-17 15:54

共2个回答

热心网友时间：2024-11-07 22:35

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)
你要的功能我不帮你实现了，这个示例一下解决实时问题的方法。

热心网友时间：2024-11-07 22:35

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com