选择一个while循环中的两个单元

Question

向所有人致以问候！

我是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

感谢您的时间！

Answer 1

类似的东西：

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