如何使用VBA循环遍历Excel单元格并将内容导出到Word

实现逻辑 #

• 先获取A列最后一行有内容的行号，确定遍历边界，避免无效遍历空行
• 动态拼接单元格引用地址时，行号变量要放在双引号外部，用&做字符串拼接
• 导出时可插入换行符，避免Word中所有内容连续堆叠

方案1：按行号循环遍历（匹配你最初的实现思路） #

' 定义变量存储A列最大有效行号
Dim maxRow As Long
maxRow = Cells(Rows.Count, "A").End(xlUp).Row

' 从第1行循环到最大有效行
Dim rowIndex As Long
For rowIndex = 1 To maxRow
    ' 动态拼接A列单元格地址，行号变量放在引号外拼接
    wDoc.Content.InsertAfter Range("A" & rowIndex).Value
    ' 可选：插入换行符，每个单元格内容单独占一行
    wDoc.Content.InsertAfter vbCrLf
Next rowIndex

方案2：遍历单元格对象（无需拼接地址，容错率更高） #

Dim targetCell As Range
' 直接选定A1到A列最后一个有内容的单元格范围
For Each targetCell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    wDoc.Content.InsertAfter targetCell.Value
    wDoc.Content.InsertAfter vbCrLf
Next targetCell

错误原因说明 #

你之前的尝试不生效确实是引号使用错误导致：如果把行号变量写在双引号内部，VBA会将变量名识别为普通文本，不会读取变量对应的行号数值，必须用&符号将固定的列标识"A"和行号变量拼接为完整的单元格地址。

内容的提问来源于stack exchange，提问作者cycla