基于列macros问题创build文件夹

我有一个基于列Q中的数据创build新文件夹的macros。除了列R需要填充数据以使其工作之外，它的工作方式非常好。

我不明白这一点，因为R列中的数据是不相关的。 它不会给出错误，文件夹只是出于某种原因不显示。

Sub CreateFolders() Dim FolderListRange As Range Dim FolderRange As Variant Dim FolderName As String Dim ParentFolderPath As String Set xWb = Application.ThisWorkbook On Error GoTo Handle ParentFolderPath = xWb.Path Set FolderListRange = ActiveSheet.Range("Q2:Q64000").SpecialCells(xlCellTypeConstants) For Each FolderRange In FolderListRange If FolderRange.Offset(0, 1).Value = "" Then GoTo Continue FolderName = ParentFolderPath & "\" & FolderRange.Value If FileSystem.Dir(FolderName, vbDirectory) = vbNullString Then FileSystem.MkDir FolderName End If Continue: Next Handle: End Sub