Travis kysyy:
Yritän muotoilla tekstiä erillisiksi sarakkeiksi. Teksti on yhdessä sarakkeessa seuraavasti:
A Yrityksen nimi A Postilaatikko 1 NEWARK NJ 07101 Yrityksen nimi B Postilaatikko 2 1400 SANS SOUCI -PARKWAY WILKES-BARRE PA 18703 Yrityksen nimi C Postilaatikko 3 CHICAGO IL 60694 Yrityksen nimi D Postilaatikko 4 CLEARFIELD UT 84015 Yrityksen nimi E Postilaatikko 5 OGDEN UT 84401 Yrityksen nimi F Postilaatikko 6 BALTIMORE MD 21264-4351 Kun muotoilin testin erinomaiseksi, tein tämän sarakkeen edellä esitetyllä tavalla. Haluaisin tietää kaavan, johon voin saada tiedot näkymään yhdellä rivillä eikä useilla riveillä yritykselle, jonka kaavan pitäisi syntyä, jos annan minulle seuraavan rivin, mutta eri sarakkeissa:
Kaikki samalla rivillä
A B C Yrityksen nimi A Postilaatikko 1 NEWARK NJ 07101 Minulla on käytössä vlookups, hlookups ja pivot-taulukot, mutta en pysty selvittämään, miten päivämäärä saadaan, jos rivi riviltä.
Olen onnistunut saamaan yritysnimet näkymään rivi kerrallaan yhdessä sarakkeessa lajittelemalla ja ajattelin, että voisin käyttää vlookupin ja hlookupin yhdistelmää saadakseni etsimäni tulokset, mutta en tiedä oikea kaava pesemään eetterihakuun. Olen testannut myös joitain DSUM-toimintoja, mutta yksikään ei toimi minulle? Joten kerro minulle, mitä tai miten korjaan ongelmani.
Mielestäni tämä voidaan helposti saavuttaa makrolla. Kokeile tätä.
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
