如何把Excel表格内的内容输出为文件夹名？

Question

如何把Excel表格内的内容输出为文件夹名？本人新人。。如把这个表
输了出到D盘，并建立以这些表格内容为文件夹的文件

Answer 1

Sub xyf()
    On Error Resume Next
    X = Range("A65535").End(xlUp).Rows
    For i = 1 To X
        VBA.MkDir ("D:/" & Cells(i, 1).Text)
    Next
End Sub