UC知道excel里想把选中的某行中的(比如B7:E7移动到G7:J7),vba代码怎么写?
来源：百度知道 编辑：UC知道 时间：2024/05/16 07:10:57
B7:E7只是举个例子，每次鼠标选中的行是不一样的，怎么办？
VBA代码如下,作用范围sheet1表 代码位置:任意
Sheet1.Range("B7:E7").Select'选中区域
Sheet1.Selection.Cut Destination:=Range("G7:J7")'剪切 实际是移动作用到区域
如果每次选择的不一样 以下代码是个实例 自行引申
只是实现方法不一样:代码位置:sheet1表内
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MsgBox("是否移动数据", vbYesNo) = vbNo Then Exit Sub
Application.EnableEvents = False
Target.Cut Destination:=Sheet1.Range("E1")
Application.EnableEvents = True
End Sub