在一个while循环中select两个单元格

祝福大家！

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

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

从B1开始，validation是否是父或子，如果是父，保存第一个字母（本例中为“F”），如果是“Son”，则保存“S”。

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

而现在，我需要做的是在ActiveWorkbook.path中创build一个文件夹，并命名它（如上例）\ 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