使用循环在Excel VBA中创建字符串

使用循环在Excel VBA中创建字符串,excel,vba,Excel,Vba,我试图根据各种用户输入为LaTex文档生成一个命令字符串 我想把一列单元格的内容“编织”成一根线,可以很容易地复制并粘贴到乳胶中 在伪代码中,我需要执行以下操作: 如果“单元格包含文本” 然后“将文本写入字符串+行分隔符” 另一端 列中的下一个单元格 输出应该是一个字符串,本质上是, '目录“A1'” '目录“A2'” 等等 直到它到达一个空白单元格 我对VBA非常陌生,因此没有任何代码可以显示我的工作。这里是我评论中的解决方案,并提供了更多详细信息。 小心,这也会增加CR/LF,如果你在文本的

我试图根据各种用户输入为LaTex文档生成一个命令字符串

我想把一列单元格的内容“编织”成一根线,可以很容易地复制并粘贴到乳胶中

在伪代码中,我需要执行以下操作:

如果“单元格包含文本” 然后“将文本写入字符串+行分隔符” 另一端 列中的下一个单元格

输出应该是一个字符串,本质上是,
'目录“A1'”
'目录“A2'”
等等
直到它到达一个空白单元格


我对VBA非常陌生,因此没有任何代码可以显示我的工作。

这里是我评论中的解决方案,并提供了更多详细信息。 小心,这也会增加CR/LF,如果你在文本的中间有一个空白。因此,您需要改进此解决方案

Sub Example()

Dim rg As Range
Dim v As Variant

    ' I assume the data is in A1:A10

    Set rg = Range("A1:A10")

    v = Join(WorksheetFunction.Transpose(rg), " ")
    v = Trim(v)
    v = Replace(v, " ", vbCrLf)

End Sub
文件和进一步解释

更新


如果您没有任何代码来显示您希望我们做什么?一个快速的解决方案是
Join(工作表函数.Transpose(范围(“A1:A10”)),vbCrLf)
。您可以将此作为自己搜索的起点。谢谢!我需要一些东西让我开始真正的一切!你会发现一些适合初学者的好文章,IMHO。这或多或少满足了我现在的需要。我将尝试使用一个循环使它得到相同的结果,这样就不需要定义范围。谢谢你的帮助和建议。我用一个链接更新了这篇文章,如何找到你的循环可能需要的最后一行。