在一个工作表上合并两个私有子WorkSheet_Change

是指在Excel中将两个私有子工作表的内容合并到一个工作表上，并且利用VBA代码中的WorkSheet_Change事件来实现。

私有子工作表是指在Excel中创建的具有特定功能或目的的工作表，可以通过隐藏或保护工作表来限制其他用户的访问和修改权限。

合并两个私有子工作表的步骤如下：

打开Excel文件，进入Visual Basic Editor（快捷键ALT+F11）。
在Project Explorer窗口中选择包含要合并的私有子工作表的工作簿。
在代码窗口中选择要合并的私有子工作表的工作簿。
在代码窗口中选择“工作表”对象，然后选择“对象”下拉列表中的“工作表”。
在代码窗口中选择“工作表”对象，然后选择“过程”下拉列表中的“WorkSheet_Change”。
在代码窗口中输入以下VBA代码来合并两个私有子工作表的内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义要合并的两个私有子工作表的名称
    Dim sourceSheet1 As Worksheet
    Dim sourceSheet2 As Worksheet
    Dim destinationSheet As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range

    Set sourceSheet1 = ThisWorkbook.Worksheets("私有子工作表1")
    Set sourceSheet2 = ThisWorkbook.Worksheets("私有子工作表2")
    Set destinationSheet = ThisWorkbook.Worksheets("合并后的工作表")

    ' 定义要合并的范围
    Set sourceRange = Union(sourceSheet1.UsedRange, sourceSheet2.UsedRange)
    Set destinationRange = destinationSheet.Range("A1")

    ' 复制数据到合并后的工作表
    sourceRange.Copy destinationRange

    ' 清空原始私有子工作表的内容
    sourceSheet1.UsedRange.ClearContents
    sourceSheet2.UsedRange.ClearContents
End Sub