VBA求助复制行粘贴行的问题，求助各位老师，不甚感激！

不让妳受伤

各位老师，我想得到的效果是这样的，就是Sheet1中只要点击勾选，该行就会被复制并自动粘贴到Sheet2的指定行中，不勾选时，Sheet2就自动删掉。就是按需勾选复制粘贴到Sheet2的效果，但是我自己也不知道该怎么弄，所以求助各位老师帮忙看看，不甚感激！

erlia2004

把表1的每个复选框”单元格链接“到K列复选框所在行
为每个复选框指定宏为a
Sub a()
Application.ScreenUpdating = False
For i = 3 To 10
    If Sheets(1).Range("k" & i) = True Then
        Sheets(1).Range("b" & i & ":" & "h" & i).Copy
        Sheets(2).Range("a" & i & ":" & "g" & i).PasteSpecial
    Else
        Sheets(2).Range("a" & i & ":" & "g" & i) = ""
    End If
Next
Sheets(1).Select
Application.ScreenUpdating = True
End Sub

不让妳受伤

erlia2004 发表于 2018-10-1 21:12
把表1的每个复选框”单元格链接“到K列复选框所在行
为每个复选框指定宏为a
Sub a()

哇  确实是我想要的效果哦   实在太厉害啦   感激不尽哈还有就是我想问下    保持以上的效果基础上，能不能让表一在勾选之后该行就变成蓝色，然后不勾选又变回白色呀