Travis pyta:
Próbuję sformatować tekst w osobnych kolumnach. Tekst znajduje się w jednej kolumnie w następujący sposób:
ZA Nazwa firmy A PO BOX 1 NEWARK NJ 07101 Nazwa firmy B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Nazwa firmy C. PO BOX 3 CHICAGO IL 60694 Nazwa firmy D PO BOX 4 CLEARFIELD UT 84015 Nazwa firmy E. PO BOX 5 OGDEN UT 84401 Nazwa firmy F PO BOX 6 BALTIMORE MD 21264-4351 Kiedy sformatowałem test tak, aby był doskonały, utworzyłem tę kolumnę, jak pokazano powyżej. Chciałbym poznać formułę, w której dane mogę wyświetlać w jednym wierszu, a nie w wielu wierszach, ponieważ w firmie formuła powinna wynikać, jeśli podam to w jednym wierszu, ale w różnych kolumnach:
Wszystko w tym samym RZĘDZIE
ZA b do Nazwa firmy A PO BOX 1 NEWARK NJ 07101 Używam vlookups i hlookups oraz tabel przestawnych, ale nie mogę dowiedzieć się, jak uzyskać datę, jeśli jest to sposób wiersz po wierszu.
Udało mi się uzyskać nazwy firm, które pojawiały się wiersz po wierszu w jednej kolumnie przez sortowanie i doszedłem do wniosku, że mogę użyć kombinacji vlookup z hlookup, aby uzyskać wyniki, których szukałem, ale nie znam właściwy wzór do zagnieżdżenia w wyszukiwaniu eteru. Przetestowałem również niektóre funkcje DSUM, ale żadna nie działa dla mnie? Więc proszę, daj mi znać, co lub jak rozwiązać mój problem.
Myślę, że można to łatwo osiągnąć za pomocą makra. Spróbuj tego.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub
