때로는 워크 시트에서 수집 한 데이터가 단일 열에 매우 잘 맞습니다. 예를 들어 이름 목록이있을 수 있으며 모두 워크 시트의 A 열에 포함되어 있습니다. 워크 시트를 인쇄하도록 선택하면 많은 페이지를 소비 할 수 있습니다. 각 페이지의 왼쪽에는 이름이 있고 오른쪽에는 공백이 있으므로 모두 거의 비어 있습니다.

이 유형의 경우 단일 열을 여러 열인 것처럼 인쇄하는 것이 좋습니다. 이렇게하면 인쇄 된 각 페이지를 더 많이 사용하고 인쇄 작업에 전체 페이지를 더 적게 사용할 수 있습니다. 안타깝게도 Excel에는 데이터의 서식을 자동으로 다시 지정하여 더 잘 인쇄 할 수있는 고유 명령이나 인쇄 설정이 없습니다. 그러나 해결 방법이 있습니다.

종종 간과되는 한 가지 해결 방법은 단일 열 목록을 빈 Word 문서에 복사하는 것입니다. 일반 텍스트로 붙여 넣으면 여러 열에 대해 각 페이지의 서식을 지정하고 실제로 정보를 인쇄 할 수 있습니다.

Word를 사용하지 않으려면 첫 번째 열의 정보를 잘라내어 다른 열에 붙여 넣어 원하는 인쇄 열 수를 제공 할 수 있습니다. 물론이 작업은 새 워크 시트 나 통합 문서에서 수행해야 원본 데이터가 그대로 유지됩니다. 예를 들어 원래 목록에 200 개의 이름이있는 경우 목록에서 한 번에 40 개의 이름을 잘라내어 새 워크 시트의 A ~ E 열에 붙여 넣을 수 있습니다. 이 워크 시트를 인쇄하려면 원래 단일 열 워크 시트를 인쇄하는 것보다 적은 페이지가 필요합니다.

물론이 자르기-붙여 넣기 작업을 자주 수행해야한다면 그 일이 금방 지루해질 수 있습니다. 이 경우 똑같은 작업을 수행하는 매크로를 사용할 수 있습니다. 원래 목록을 분할하여 새 통합 문서의 여러 열에 붙여 넣습니다.

Sub SingleToMultiColumn()

Dim rng As Range     Dim iCols As Integer     Dim lRows As Long     Dim iCol As Integer     Dim lRow As Long     Dim lRowSource As Long     Dim x As Long     Dim wks As Worksheet

Set rng = Application.InputBox _       (prompt:="Select the range to convert", _       Type:=8)

iCols = InputBox("How many columns do you want?")

lRowSource = rng.Rows.Count     lRows = lRowSource / iCols     If lRows * iCols <> lRowSource Then lRows = lRows + 1

Set wks = Worksheets.Add     lRow = 1     x = 1     For iCol = 1 To iCols         Do While x <= lRows And lRow <= lRowSource             Cells(x, iCol) = rng.Cells(lRow, 1)

x = x + 1             lRow = lRow + 1         Loop         x = 1     Next End Sub

이 매크로를 실행할 때 변환 할 범위를 선택하라는 메시지가 표시되고 다시 서식을 지정할 열 수를 지정하라는 메시지가 표시됩니다. 현재 통합 문서에 새 워크 시트를 만들고 원본의 정보를 지정한만큼의 열로 복사합니다.

이 문제를 해결하기위한 추가 리소스는 다음 웹 사이트를 참조하십시오.

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

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (8239)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Printing_a_Single_Column_in_Multiple_Columns [여러 열에 단일 열 인쇄].