Excel 在一个While循环中选择两个单元格

大家好

我是VBA新手，我正在做一个应用程序，我对代码的某些部分有点困惑，请在下表中找到示例：

我的代码需要基于每行单元格创建一个文件夹，例如：

从B1开始，它验证它是父亲还是儿子，如果是父亲，则保存第一个字母（在本例中为F），如果是儿子，则保存一个s

其次，如果A1为100，则必须保存单元格值

现在我需要做的是在ActiveWorkbook.path中创建一个文件夹，该文件夹的名称与上一个示例中的名称相同\F100 \S101、\S102并继续

我的代码是这样的，但我知道它不能正常工作

Sub Test()


Dim rng1 As Range
Dim rng2 As Range

Set rng1 = Range("A1")
Set rng2 = Range("B1").Select


    Set fso = CreateObject("Scripting.FileSystemObject")


Do While Not IsEmpty(rng2)

    If rng2.Value = "Father" Then
        fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2)

        ElseIf rng2.Value = "Son" Then
        fso.createFolder (ActiveWorkbook.Path & "\" & rng1.Value2)

    End If

    ActiveCell.Offset(1, 0).Select

Loop



End Sub

谢谢你的时间

类似于：

Sub Test()

    Dim rng1 As Range, fso, v

    Set rng1 = Range("A1")
    Set fso = CreateObject("Scripting.FileSystemObject")

    Do While Not IsEmpty(rng1)

        v = rng1.Offset(0, 1).value

        If v = "Father" Or v = "Son" Then

            fso.createFolder (ActiveWorkbook.Path & "\" & _
                              Left(v, 1) & rng1.Value2)

        End If

        Set rng1 = rng1.Offset(1, 0)

    Loop

End Sub

---

提姆！非常感谢你！它工作完美！再次感谢您抽出时间。