VBA łączenie danych i przepisanie - petla

Question

Witam, w jaki sposób połączyć dane z 3 kolumn z jednego skoroszytu i przypisanie do drugiego skoroszytu, łączyłem za pomocą funkcji "ZŁĄCZ.TEKSTY" i działa ok w miarę, tylko łączy w jeden ciąg i nie wiem jak to przerobić, aby działało w petli, czyli w zależności ile wierszy w skoroszycie A tyle połączonych w skoroszycie B. 

 

W zależności od ilości danych w arkuszu 1. 

 

Łączenie ale tylko dla 1 przypadku : 

Sub Przycisk3_Kliknięcie()
'
' Przycisk3_Kliknięcie Makro
'

'
    Sheets("Arkusz2").Select
    Range("A6").Select
    Sheets("Arkusz1").Select
    Range("A8").Select
    Sheets("Arkusz2").Select
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(Arkusz1!R[2]C,Arkusz1!R[2]C[1],Arkusz1!R[2]C[2])"
    Sheets("Arkusz1").Select
End Sub

 

Answer 1

Witam, może tak:

Sub Przycisk3_Kliknięcie()
Dim i As Integer, ostw As Integer
ostw = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To ostw
    Sheets("Arkusz2").Cells(i, "A").Value = Sheets("Arkusz1").Cells(i, "A").Text & " " & Sheets("Arkusz1").Cells(i, "B").Text & " " & Sheets("Arkusz1").Cells(i, "C").Text
Next i
End Sub

Comments

Super, dzięki bardzo, a jeszcze masz może pomysł na to aby zawijać tekst w danej komórce w Akrukuszu 2 :

jeden
dwa 
trzy

dla jednej komórki, żeby nie były obok siebie tylko w ten sposób :)

---

Zmień doklejone spacje na znak nowej linii chr(10):

Sheets("Arkusz2").Cells(i, "A").Value = Sheets("Arkusz1").Cells(i, "A").Text & Chr(10) & Sheets("Arkusz1").Cells(i, "B").Text & Chr(10) & Sheets("Arkusz1").Cells(i, "C").Text