如何使用Excel VBA将一张工作表中的值分配到隐藏工作表中？(并跳过该范围内的一列？)

Sub AssignValuesToHiddenSheet()
    Dim sourceSheet As Worksheet
    Dim hiddenSheet As Worksheet
    Dim sourceRange As Range
    Dim hiddenRange As Range
    Dim columnToSkip As Range
    Dim cell As Range
    
    ' 设置源工作表和隐藏工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set hiddenSheet = ThisWorkbook.Sheets("隐藏工作表名称")
    
    ' 设置源范围和隐藏范围
    Set sourceRange = sourceSheet.Range("A1:D10") ' 设置源范围的起始单元格和结束单元格
    Set hiddenRange = hiddenSheet.Range("A1") ' 设置隐藏范围的起始单元格
    
    ' 设置要跳过的列
    Set columnToSkip = sourceSheet.Range("C1:C10") ' 设置要跳过的列范围
    
    ' 循环遍历源范围中的每个单元格
    For Each cell In sourceRange
        ' 检查当前单元格是否在要跳过的列中
        If Intersect(cell, columnToSkip) Is Nothing Then
            ' 将当前单元格的值分配到隐藏工作表中对应的单元格
            hiddenRange.Value = cell.Value
            
            ' 移动隐藏范围到下一个单元格
            Set hiddenRange = hiddenRange.Offset(1, 0)
        End If
    Next cell
End Sub