Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/variables/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 仅在B列中插入一行_Excel_Vba_Insert - Fatal编程技术网

Excel 仅在B列中插入一行

Excel 仅在B列中插入一行,excel,vba,insert,Excel,Vba,Insert,我编写了一个宏,从工作表2中复制一行,并将该行插入工作表1。我的问题是,我只希望在活动行中插入从B列开始的行。以下是宏: Sub addTestProductRow() Sheets("Macro templates").Range("B2:J2").Copy Selection.Insert Shift:=xlDown End Sub 当前我的宏执行以下操作: 如果用户已选择单元格K2并执行宏,则该行将从K2插入S2 我希望宏执行的操作: 如果用户已选择单元格K2并执行宏,则该行将从B2插入

我编写了一个宏,从工作表2中复制一行,并将该行插入工作表1。我的问题是,我只希望在活动行中插入从B列开始的行。以下是宏:

Sub addTestProductRow()
Sheets("Macro templates").Range("B2:J2").Copy
Selection.Insert Shift:=xlDown
End Sub
当前我的宏执行以下操作:
如果用户已选择单元格K2并执行宏,则该行将从K2插入S2

我希望宏执行的操作:
如果用户已选择单元格K2并执行宏,则该行将从B2插入J2

注意事项: 该行包含一个复选框,因此必须跨该复选框进行复制。当前,我的宏确实正确复制并粘贴了该复选框。

更改:

Selection.Insert Shift:=xlDown

致:

工作表(“其他工作表的名称”)。范围(“B2”)。插入移位:=xlDown

指定要插入的图纸和范围,而不是依赖于选择