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 

結果看現在這個樣子：