Excel VBA遍历数据验证选项并另存为新工作簿

Sub TraverseDataValidation()
    Dim ws As Worksheet
    Dim cell As Range
    Dim validation As Validation
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为实际的工作表名称
    
    For Each cell In ws.UsedRange.Cells
        Set validation = cell.Validation
        If Not validation Is Nothing Then
            '获取数据验证选项的相关信息
            Debug.Print "单元格 " & cell.Address & " 的数据验证选项："
            Debug.Print "类型：" & validation.Type
            Debug.Print "数值范围：" & validation.Formula1 & " - " & validation.Formula2
            Debug.Print "列表选项：" & Join(validation.Formula1, ",")
            '其他相关信息...
        End If
    Next cell
End Sub

Sub SaveAsNewWorkbook()
    Dim newWorkbook As Workbook
    
    '创建新工作簿
    Set newWorkbook = Workbooks.Add
    
    '将当前工作簿的内容复制到新工作簿
    ThisWorkbook.ActiveSheet.UsedRange.Copy newWorkbook.ActiveSheet.Range("A1")
    
    '另存为新工作簿
    newWorkbook.SaveAs "C:\Path\To\NewWorkbook.xlsx" '替换为实际的文件路径
    
    '关闭新工作簿
    newWorkbook.Close
End Sub