从不同的工作簿排序

不太清楚...如果只希望复制检查的数据，则可以编写如下子：

Sub UpdateCheck()
    Dim e, i As Integer

    i = 1
    If CheckBox1.Value Then
        Range("J" & i).Value = CheckBox1.Caption
        i = i + 1
    End If
    If CheckBox2.Value Then
        Range("J" & i).Value = CheckBox2.Caption
        i = i + 1
    End If
    If CheckBox3.Value Then
        Range("J" & i).Value = CheckBox3.Caption
        i = i + 1
    End If
    If CheckBox4.Value Then
        Range("J" & i).Value = CheckBox4.Caption
        i = i + 1
    End If
    If CheckBox5.Value Then
        Range("J" & i).Value = CheckBox5.Caption
        i = i + 1
    End If
    If CheckBox6.Value Then
        Range("J" & i).Value = CheckBox6.Caption
        i = i + 1
    End If
    If CheckBox7.Value Then
        Range("J" & i).Value = CheckBox7.Caption
        i = i + 1
    End If
    If CheckBox8.Value Then
        Range("J" & i).Value = CheckBox8.Caption
        i = i + 1
    End If

    For e = i To 8
        Range("J" & e).Value = ""
    Next

End Sub

此示例在同一页面上，但您只需在范围内添加参考

Sheets(2).Range ...

您可以直接在Sheet2的按钮中调用子UpdateCheck。或者您可以自动更新添加代码：

Private Sub CheckBox1_Click()
   UpdateCheck
End Sub

工作表中的每个复选框。
如果您想从更大的数据中进行复制或在过滤器中使用，它会稍微复杂一些...
我不了解“浏览按钮”的使用...