[Koliber86]

Hej,

jak w VBA polaczyc imie i nazwiska z Kolumn B i C aby uzyskac to co jest w kolumnie E?

ta lsita ciagnie sie mega w dol wiec to jakis loop musi byc lub cos. ja stanalem na tym ale nie wychodzi mi cos

With .Range("E2:E" & lngLastRow)
.Formula = Range("B2").Value & "" & Range("B2").Value
.Value = .Value
End With

Otrzymuje jakies glupoty.

#vba #excel

[SynGromu]

@Koliber86: dlaczego nie użyjesz gotowej funkcji złącz.teksty?

[1001001]

@Koliber86: Chcesz aby w komórce docelowej była zaszyta formuła czy po prostu połączyć te dwie wartości w jedno?

[Koliber86]

@1001001: lepiej jako value

[1001001]

@Koliber86:

Sub Testowa()

Dim sht As Worksheet
Dim lastrow As Long
Dim i As Long
Set sht = ActiveSheet

'Ctrl + Shift + End
lastrow = sht.Cells(sht.Rows.Count, "B").End(xlUp).Row

For i = 1 To lastrow
sht.Cells(i, 5) = sht.Cells(i, 2) & " " & sht.Cells(i, 3)
Next i

End Sub

i = 1 <= U Ciebie wpisz wartość i równą pierwszemu wierszowi do połączenia

[Koliber86]

@1001001: Dziekuje :)

[1001001]

@Koliber86: Zrobiłem jeden skrót myślowy. A mianowicie zakładam, że w razie potrzeby jesteś w stanie zmienić sobie arkusz, do którego będziesz się odnosił.

Set sht = ActiveSheet

Może lepiej:

Set sht = Sheets("Arkusz 1") <= tak przykładowo, gdzie w nawiasie dajesz nazwę arkusza.

[brak_nicku]

With 
Range("E2:E" & LastRow)
 .Formula = "=B2 & "" "" & C2"
 .Value = .Value
End With

@Koliber86: @1001001: Pętle czytające/zapisujące pojedyncze komórki to zło i zabójstwo wydajności.

[1001001]

@brak_nicku Co więc polecasz?

[brak_nicku]

@1001001: kod, który miał OP, tylko z błędem - poprawiłem formułę wyżej - zadziała o rząd wielkości szybciej, przy dużej ilości danych łatwo to będzie zauważyć, albo zmierzyć: http://www.vbaexpress.com/kb/getarticle.php?kb_id=1068

[Uri_]

@Koliber86: zrób ręcznie jeden wiersz, później enter, ctrl+e i zrobione

[Koliber86]

@brak_nicku: czyli mowisz zeby unikac uzywania loopow "For i = 1 to last row" itp? na rzeczy wlasnie With/End With? co jeszcze wchodzi w gre jako lepsze rozwiazanie?

[brak_nicku]

@Koliber86: tu nie chodzi o With/End With bo akurat te 2 polecenia nie mają praktycznie żadnego wpływu na wydajność, jedynie upraszczają zapis, bo zamiast:

With Range("E2:E" & LastRow)
.Formula = "=B2 & "" "" & C2"
.Value = .Value
End With

Równie dobrze możesz napisać:

Range("E2:E" & LastRow).Formula = "=B2 & "" "" & C2"
Range("E2:E" & LastRow).Value = Range("E2:E" & LastRow).Value

Codzi o to, że każdy dostęp (odczyt/zapis) wartości komórek

[brak_nicku]

@Koliber86: @1001001: Porównanie 3 metod:

https://pastebin.com/W05hrHSX

W kolumnie A i B wygenerowałem milion losowych 10-znakowych ciągów.

Wynik działania szybkości działania (milisekundy):

[1001001]

@brak_nicku Dzięki za sugestie. Generalnie większość moich operacji to wczytywanie danych z wielu arkuszy do tablicy i potem kilka operacji i zapis do nowego pliku.

[Koliber86]

@brak_nicku: czyli z zasady wszystko lepiej jest wczytywac w array, wykonac dzialanie i potem wypluc gdzies w excelu?

Czy to rowniez sie tyczy dzialaniom na tekscie? np gdybym chcial wyfiltrowac rzedy zaiwrajace na literke "A" i skopiowacje przez autofilter.range? to tez powinienem wczytac wszystko w array?

[brak_nicku]

czyli z zasady wszystko lepiej jest wczytywac w array, wykonac dzialanie i potem wypluc gdzies w excelu?

Co do zasady tak. Więcej niżej.

Czy to rowniez sie tyczy dzialaniom na tekscie? np gdybym chcial wyfiltrowac rzedy zaiwrajace na literke "A" i skopiowacje przez autofilter.range? to tez powinienem wczytac wszystko w array?

Jeśli autofiltr wybierze to co trzeba i bez dalszej obróbki trzeba to gdzieś skopiować to bez sensu to kopiować do tablicy,