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) "토마스 제품은 사과가됩니다."(각 행 다음에 새 행)

나는 이것을 수행 할 모양을 어떻게 만들지 모르겠다. '행 수를 걱정해야합니다.

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 

결과는 지금과 같이 :