excel - 如何根据单元格的值循环遍历列创建文件夹？

Question

我想遍历一列（项目）然后取决于单元格的值创建一个具有特定单元格名称的文件夹，例如如果找到 x = 20 然后创建文件夹“20_hhh”我们有很多 20 但我只想要一个文件夹如果找到30 然后创建然后创建文件夹 30 _hhh 等等！

每次 x（单元格的值）增加 10 倍

这是列的示例

 Item

 10
 10
 10
 10
 20
 20
 30
 30
 40
 40
 40

我有一个代码，但它不起作用，有人可以帮助我吗？

   Sub create_loop()

  Dim BrowseForFolder As String
  Dim fName5 As String
  Dim fName3 As String
  Dim fName1 As String
  Dim fName4 As String
  Dim x As String



 With Worksheets("Output_" & Date).Range("B1:B100")

  x = 20
 fName5 = .Range("D3").Value
 fName3 = "PO_"
 fName1 = "000"
 fName4 = "_"

 BrowseForFolder = "X:\fei"

 Set c = .Find(x, LookIn:=xlValues)
 If Not c Is Nothing Then
    firstAddress = c.Address
    Do
        MkDir  "my specific folder"

        x = 10 + x

        Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With

 End Sub   

标签： excelvba