合并两个单元格的文本作为文件path的输出

亲爱的stackoverflow社区，

我一直在做一个程序，使地图结构取决于Excel中的索引。

这个索引是可变的，这意味着章节的名字在任何时候都可以是不同的。 章节的数量并不总是相同的。 因为我使用数据validation来select章节的内容，所以我不能使用连接选项在同一单元格中编辑章节。 看这里：

根据索引，我想索引的文件夹结构。 我可以得到这个工作为C56和D56 。 所以这意味着一个章节。 这是代码：

 Sub Try_This_Maybe_Multiple() Dim myDir As String myDir = Sheets("Invulformulier").Range("J6") & "\" & "Material data book" & "\" & Sheets("Index").Range("C56") & " " & Sheets("Index").Range("D56") MkDir myDir On Error GoTo 0 End Sub 

现在我试着把Range("C56:C70")和Range("D56:D70")放在一起。 （ C56是指数开始的地方）不幸的是，没有工作。 我也search了多个网站，尝试了不同的东西。 这也没有给出任何结果。

简短的回顾 我想在代码中合并单元格C56和D56的文本。 然后对于C57和D57等，而不必为每个单独的行写。

这个想法最终是一个人将PDF文件放在它所属的文件夹结构中，然后在文件夹的结构中生成一个组合的pdf文件：

我希望我的问题很清楚。 如果不是，请问我需要什么信息。

谢谢。

Answer 1

只需使用For循环遍历范围中的单元格并根据行创build文件夹即可。 假设你的单元格区域被一行之间分隔开，并从第56行到第70行，请尝试以下操作：

 Sub Test() Dim myDir As String Dim x as long For x = 56 to 70 Step 2 myDir = Sheets("Invulformulier").Range("J6") & "\" & _ "Material data book" & "\" & Sheets("Index").Range("C" & x) & " " & _ Sheets("Index").Range("D" & x) MkDir myDir Next x End Sub