| Jak przenieść dane oddzielone średnikami do osobnych wierszy? |
|
Problem: Do komórki wpisuję pewne dane, które oddzielam średnikami. Chciałbym przenieść te dane tak aby każda z nich znajdowała się w osobnym wierszu. ![]() Rozwiązanie: Możesz skorzystać np. z takiego makra. Option Explicit Sub PrzeniesWgSrednikow() Dim avHobby As Variant Dim lNumer As Long Dim lOstatniWiersz As Long Dim lLicznik As Long With Arkusz1 'Sprawdza ostatni wiersz w kolumnie B lOstatniWiersz = .Range("B" & .Rows.Count).End(xlUp).Row 'Petla po wszystkich komorkach For lLicznik = 2 To lOstatniWiersz With .Range("B" & lLicznik) avHobby = Split(.Value, ";") lNumer = .Offset(0, -1) End With 'Wstawienie danych z tablicy do arkusza If UBound(avHobby) > 0 Then With .Range("D" & .Rows.Count).End(xlUp).Offset(1, 0) .Resize(UBound(avHobby) + 1, 1).Value = lNumer .Offset(0, 1).Resize(UBound(avHobby) + 1, 1).Value = Application.Transpose(avHobby) End With End If Next lLicznik End With End Sub |
|
| Zmieniony ( Czwartek, 01. Lipiec 2010 10:59 ) |
