Excel：循环遍历一行单元格并打印每一行

Question

我想将信息行打印到另一个表单上。 问题是，行数总是动态的，永远不会是静态的。

例如：

*A1 = 4 
*B1 = Thomas 
*C1 = Apples 

*A2 = 2 
*B2 = Jerry 
*C2 = Oranges 

*A3 = 1 
*B3 = Tiffany 
*C3 = Strawberries 

我想是与一些字符串一起打印这些行...

等上A1

表2 startign我希望它读 A1“一定量的”& A1 &“必须由”& B1 &“”产品将是“& C1 & chr（10） “托马斯产品必须消耗4个苹果的数量”（每行后有一个新行）

“我不知道如何创建一个外观，这样做，所以我不会'必须担心行数。

Answer 1

不确定打印每一行是什么意思。

您可以遍历列 'A' 的所有值，并在这样的下一列 'd' 串连值：

Sub Macro1() 
    With ActiveSheet 
     LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Dim rRng As Range 
    Set rRng = Range("A1:A" & LastRow) 

    For Each cell In rRng.Cells 
     cell.Offset(0, 3).Value = "A quantity of " & cell.Value & " must be consumed by " & cell.Offset(0, 1).Value & " product will be " & cell.Offset(0, 2).Value 
    Next 
End Sub 

---

结果是这样的：

---

编辑

既然你提到了一个新的行字符，我会假设你想要一个单元格中的所有文本出于某种原因。试试这个：

Sub Macro1() 
    With ActiveSheet 
     LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 

    Dim rRng As Range 
    Set rRng = Range("A1:A" & LastRow) 

    Dim result As Range 
    Set result = Range("D1") 

    result.Value = "" 

    For Each cell In rRng.Cells 
     result.Value = Range("D1").Value & "A quantity of " & cell.Value & " must be consumed by " & cell.Offset(0, 1).Value & " product will be " & cell.Offset(0, 2).Value & Chr(10) 
    Next 
End Sub 

结果看现在这个样子：