如何从不同工作表中的不同数据创建多个文件夹？

Sub CreateFoldersFromWorksheets()
    Dim ws As Worksheet
    Dim cell As Range
    Dim folderPath As String
    
    ' 设置文件夹路径
    folderPath = "C:\目标文件夹路径\" ' 替换为你想要创建文件夹的目标路径
    
    ' 循环遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 检查工作表是否包含数据
        If WorksheetFunction.CountA(ws.Cells) <> 0 Then
            ' 创建文件夹
            MkDir folderPath & ws.Name
            
            ' 循环遍历每个工作表中的数据
            For Each cell In ws.UsedRange
                ' 检查单元格是否包含数据
                If Not IsEmpty(cell.Value) Then
                    ' 创建子文件夹
                    MkDir folderPath & ws.Name & "\" & cell.Value
                End If
            Next cell
        End If
    Next ws
End Sub