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

Question

我正在尝试根据各种用户输入为LaTex文档生成一串命令。

我想将一列单元格的内容“编织”成一个字符串，可以轻松地复制并粘贴到Latex中。

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

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

输出应基本上是一个字符串，
'内容“ A1””
“内容“ A2””
等
直到到达空白单元格。

我是VBA的新手，因此没有任何代码可以显示。

Answer 1

这是我评论中的解决方案，其中包含更多详细信息。 请注意，如果文本中间有空格，这也会添加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
• Reading a Range of Cells to an Array
• Replace Part of a String
• Transpose
• Removing Blanks

更新

• Find last row, column or last cell