Skrive en enkelt kolonne i flere kolonner

January 31  by Eliza

Noen ganger dataene du samler inn i et regneark passer veldig fint inn i en enkelt kolonne. For eksempel kan du ha en liste med navn, og de alle er inneholdt i kolonne A i regnearket. Når du velger å skrive ut regnearket, kan det forbruke ganske mange sider, alle av dem nesten blank som venstre side av hver side inneholder et navn, og høyre side inneholder hvit plass.

I denne typen eksempel, ville det være fint å skrive ut én kolonne som om det var flere kolonner. På den måten kan du bruke mer av hver utskrevne side og færre generelle sider for utskriftsjobben. Dessverre Excel inneholder ingen egenverdi kommando eller utskriftsinnstilling som lar deg automatisk reformatere dine data slik at den skriver ut bedre. Det finnes løsninger, men.

En løsning som ofte blir oversett er bare å kopiere over den single-kolonnen til et tomt Word-dokument. Hvis du limer det der som ren tekst, kan du formatere hver side for flere kolonner og faktisk skrive ut informasjonen.

Hvis du vil heller ikke innebære Word, kan du klippe og lime inn informasjon fra den første kolonnen i andre kolonner for å gi det ønskede antallet utskrift kolonner. Dette, selvfølgelig, bør gjøres i et nytt regneark eller en arbeidsbok, slik at den opprinnelige dataene forblir uforstyrret. Som et eksempel, hvis du har 200 navn på den opprinnelige listen, kan du kutte 40 navn om gangen fra listen, og lime dem inn i kolonner A til E av et nytt regneark. Skrive dette regnearket krever mindre sider enn den opprinnelige single-kolonne regneark utskrift.

Selvfølgelig, hvis du trenger å gjøre denne cut-and-paste ofte, ork kan fort bli kjedelig. I dette tilfellet, kan du bruke en makro som gjør akkurat det samme: Det skiver og terninger den opprinnelige listen og pastaer det inn i et antall kolonner på en ny arbeidsbok.

Sub SingleToMultiColumn ()
Dim RNG Som Range
Dim iCols As Integer
Dim lRows As Long
Dim iCol As Integer
Dim lRow Som Long
Dim lRowSource Som Long
Dim x Som Long
Dim wks Som regneark

Satt RNG = Application.InputBox _
(Be: = "Velg området til å konvertere", _
Type: = 8)
iCols = InputBox ("Hvor mange kolonner vil du ha?")
lRowSource = rng.Rows.Count
lRows = lRowSource / iCols
Hvis lRows * iCols <> lRowSource Deretter lRows = lRows + 1

Satt wks = Worksheets.Add
lRow = 1
x = 1
For iCol = 1 Til iCols
Gjør Mens x <= lRows Og lRow

Når du kjører denne makroen, blir du bedt om å velge området du vil konvertere, og deretter blir du bedt om å angi antall kolonner du vil den skal være formatert som. Det skaper et nytt regneark i den gjeldende arbeidsboken og kopierer informasjon fra originalen inn så mange kolonner som du har angitt.

For ytterligere ressurser for å løse dette problemet, se følgende webområder:

http://www.ozgrid.com/VBA/MiscVBA.htm#Print
http://www.mvps.org/dmcritchie/excel/snakecol.htm

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2219) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Skrive en enkelt kolonne i flere kolonner.