Treviss jautā:
Es mēģinu formatēt tekstu atsevišķās kolonnās. Teksts vienā kolonnā ir šāds:
A Uzņēmuma nosaukums A POSTE 1 NEWARK NJ 07101 Uzņēmuma nosaukums B PO BOX 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Uzņēmuma nosaukums C POSTE 3 ČIKAGO IL 60694 Uzņēmuma nosaukums D PO BOX 4 CLEARFIELD UT 84015 Uzņēmuma nosaukums E 5. POKSTS OGDEN UT 84401 Uzņēmuma nosaukums F POSTE 6 BALTIMORE MD 21264-4351 Kad es formatēju testu, lai tas būtu izcils, izveidoju šo kolonnu, kā parādīts iepriekš. Es vēlētos uzzināt formulu, kurai es varu likt datiem parādīties vienā rindā, nevis vairākās rindās, ja uzņēmumam šī formula būtu jāizdara, ja man šo sekošanu norādītu vienā rindā, bet dažādās kolonnās:
Visi vienā rindā
A B C Uzņēmuma nosaukums A POSTE 1 NEWARK NJ 07101 Man ir izmantotas vlookups, hlookups un pagrieziena tabulas, bet es nevaru saprast, kā iegūt datumu, ja pa rindai.
Man ir izdevies panākt, lai uzņēmumu nosaukumi tiktu parādīti rindā pa rindai vienā kolonnā, kārtojot, un es izdomāju, ka es varētu izmantot vlookup un hlookup kombināciju, lai iegūtu manis meklētos rezultātus, bet es nezinu pareiza formula ligzdošanai ētera meklēšanā. Esmu pārbaudījis arī dažas DSUM funkcijas, taču neviena no tām man neder? Tāpēc, lūdzu, dariet man zināmu, kā un kā novērst manu problēmu.
Es domāju, ka to var viegli sasniegt, izmantojot makro. Izmēģiniet šo.
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
