Тревіс запитує:
Я намагаюся відформатувати якийсь текст в окремі стовпці. Текст знаходиться в одному стовпці таким чином:
A Назва компанії A PO Box 1 NEWARK NJ 07101 Назва компанії B PO Box 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Назва компанії C PO Box 3 ЧІКАГО IL 60694 Назва компанії D PO Box 4 CLEARFIELD UT 84015 Назва компанії E PO Box 5 ОГДЕН УТ 84401 Назва компанії F PO Box 6 БАЛТИМОР MD 21264-4351 Коли я відформатував тест на Excel, я зробив цей стовпець, як показано вище. Я хотів би знати формулу, за якою я можу зробити так, щоб дані відображалися в одному рядку, а не в декількох рядках, оскільки для компанії формула повинна мати результат, якщо давати мені таке в одному рядку, але в різних стовпцях:
Все на одному рядку
A B C. Назва компанії A PO Box 1 NEWARK NJ 07101 Я використовую vlookups, hlookups та зведені таблиці, але я не можу зрозуміти, як отримати дату, якщо по черзі.
Мені вдалося змусити сортувати назви компаній за рядком в одному стовпці, і я зрозумів, що можу використати комбінацію vlookup з hlookup, щоб отримати результати, які я шукав, але я не знаю правильна формула для вкладання в пошук ефіру. Я також перевірив деякі функції DSUM, але жодна не працює для мене? Тож, будь ласка, дайте мені знати, що або як вирішити мою проблему.
Я думаю, це можна легко отримати за допомогою макросу. Спробуйте це.
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