Note: The other languages of the website are Google-translated. Back to English

Excel에서 한 페이지에 긴 열을 인쇄하는 방법은 무엇입니까?

한 열에 200 행 정도의 긴 데이터 목록이 있고 이제 인쇄해야하지만 인쇄 할 때 왼쪽에 한 열만 있고 많은 공백이있는 약 5 페이지의 용지를 사용한다고 가정합니다. 우편. 한마디로 열 수 있지만 Excel에는이 기능이 없습니다. 용지를 절약하기 위해 긴 목록 데이터를 한 페이지에 어떻게 인쇄합니까?

수식을 사용하여 한 페이지에 긴 열 인쇄

VBA 코드로 한 페이지에 긴 열 인쇄

다음을 사용하여 한 페이지에 긴 열을 인쇄합니다. Kutools for Excel


화살표 블루 오른쪽 거품 수식을 사용하여 한 페이지에 긴 열 인쇄

이 문제를 해결하기위한 긴 공식을 소개하겠습니다. 다음과 같이하십시오.

1. 활성 통합 문서의 새 워크 시트에 공식을 입력합니다. =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) 셀 A1로.

노트: Sheet1 열려는 긴 목록이있는 워크 시트입니다.

45 열에 데이터를 나열하려는 행 번호입니다.

모두 변수이며 필요에 따라 변경할 수 있습니다.

2. 그런 다음 A1 셀을 선택하고 채우기 핸들을 45 행까지 드래그 한 다음 데이터가 표시 될 때까지 채우기 핸들을 오른쪽으로 드래그합니다. 그리고 긴 열은 새 워크 시트의 한 페이지에 맞도록 여러 열로 분할되었습니다. 스크린 샷보기 :

문서 인쇄 긴 열1


화살표 블루 오른쪽 거품 VBA 코드로 한 페이지에 긴 열 인쇄

다음 VBA 코드는 데이터를 인쇄하고 용지를 절약 할 수 있도록 긴 데이터 목록을 여러 열로 나누는데도 도움이됩니다.

1. 누르고 ALT + F11 키가 열립니다. 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

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

3. 그런 다음 F5 키를 눌러이 코드를 실행하고 팝업 대화 상자에서 나누려는 목록 데이터를 선택합니다. 스크린 샷을 참조하십시오.

문서 인쇄 긴 열2

4. 딸깍 하는 소리 OK를 클릭하고 나눌 열 수를 입력합니다. 스크린 샷보기 :

문서 인쇄 긴 열3

5. 클릭 OK, 긴 열이 새 워크 시트에서 XNUMX 개의 열로 나뉩니다. 스크린 샷보기 :

문서 인쇄 긴 열4 -2 문서 인쇄 긴 열5

화살표 블루 오른쪽 거품 다음을 사용하여 한 페이지에 긴 열을 인쇄합니다. Kutools for Excel

긴 수식과 VBA 코드 모두 어려울 수 있습니다. 여기서는이 문제를 해결하는 쉽고 편리한 방법을 소개합니다. Kutools for Excel여러 열 인쇄 함수는 긴 열을 여러 열로 빠르게 분할하여 합리적으로 인쇄 할 수 있도록 도와줍니다.

Kutools for Excel 300 개 이상의 편리한 Excel 도구가 포함되어 있습니다. 30 일 동안 제한없이 무료로 사용해보세요. 그것을 지금.

당신이 설치했을 때 Kutools for Excel, 다음 단계를 수행할 수 있습니다.

1. 딸깍 하는 소리 Enterprise > 여러 열 인쇄, 스크린 샷 참조 :

문서 인쇄 긴 열6

2. 에서 여러 열 인쇄 대화 상자 :

  • 첫 번째를 클릭 문서 버튼 버튼을 눌러 범위 제목을 선택한 다음 두 번째 문서 버튼버튼을 눌러 분할 할 열을 선택합니다.
  • 그런 다음 페이지 당 넣을 행 수를 지정하십시오. 인쇄 된 페이지 당 행을 클릭하고 아래 한 페이지에 원하는 열 수를 입력하십시오. 세그먼트 수. 스크린 샷보기 :

문서 인쇄 긴 열7

3. 그런 다음 OK, 긴 목록 데이터는 한 페이지에서 XNUMX 개의 열로 나뉩니다. 스크린 샷보기 :

문서 인쇄 긴 열8 -2 문서 인쇄 긴 열9

배송 시 요청 사항:

1. 제목은 모든 열 앞에 추가됩니다.

2. 확인하면 활성 시트로 링크 만들기 옵션을 선택하면 새 워크 시트 데이터를 원본 데이터에 연결할 수 있습니다.

이 기능에 대해 더 알고 싶다면 여러 열 인쇄.


최고의 사무 생산성 도구

Kutools for Excel 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (13)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 두 번째 옵션 "VBA 코드로 한 페이지에 긴 열 인쇄"와 관련된 질문이 있습니다. 범위에 둘 이상의 열이 있는 경우 동일한 코드를 어떻게 사용할 수 있습니까? "$A$2:$C$118"의 범위를 말하면 어떻게 하면 될까요? 감사해요.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
정보 감사합니다! 매우 유용하고 사용하기 쉬웠습니다. 컴퓨터 기술이 부족한 사람에게도 (저는 첫 번째 방법을 사용했습니다)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
몇 시간 동안 인터넷을 검색한 후 나는 이것을 우연히 발견했습니다. 내가 찾던 바로 그 것이다. 수고하셨습니다. 시간을 내주셔서 감사합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
친애하는 각하 이 작업에 감사드립니다. 이 VBA 코드는 제 작업에 매우 유용합니다. 몇 초 만에 작업을 완료하게 되어 기쁩니다. 감사합니다. ....
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
간단한 수식 =OFFSET(Sheet1!$A$1,(ROW()-2)*5+COLUMN(),0)을 사용하여 데이터가 5개 ​​열에서 수평으로 흐르도록 할 수 있습니다. 그런 다음 페이지 크기를 선택하고 각 페이지의 첫 번째 행을 인쇄하는 등의 작업을 할 수 있습니다. 단순하고 깔끔하며 VBA 없음
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 수식을 수정하여 3개 대신 1개의 열로 작업하는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
나도 이와 같은 솔루션에 관심이 있을 것입니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
이 공식은 어디로 가나요? 여러 행 레이아웃의 한 페이지에 여러 열이 있는 여러 행을 인쇄하려고 합니다. 이것과 유사:

존 스미스 1주차
존 스미스 2주차
존 스미스 총계


IJ까지 100개 이상의 행이 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
고맙습니다! 수식은 원활하게 작동했습니다!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
또는 표를 복사하여 원하는 만큼의 열이 있는 워드 문서에 붙여넣을 수 있습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
10,000개의 숫자로 구성된 열이 있고 VBA 매크로는 여러 페이지에 테이블을 제공합니다. 그러나 각 페이지가 열보다는 숫자로 정렬되는 것을 선호합니다. 도움을 주시면 감사하겠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모두 정렬된 10,000개의 고유 숫자 열이 있습니다. VBA 코드는 테이블을 제공하지만 열은 개별적으로 정렬됩니다.
각 페이지가 데이터 페이지별로 쉽게 따라갈 수 있도록 숫자로 정렬되는 것을 선호합니다. 모든 제안을 가장 환영합니다.
키이스
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕하세요, 패터슨입니다.
다음 VBA 코드가 도움이 될 수 있습니다.
Sub SingleToMultiColumn()
    Dim xRng As Range
    Dim xCount As Integer
    Dim xICols As Integer
    Dim xLRows As Long
    Dim xICol As Integer
    Dim xLRow As Long
    Dim xLRowSource As Long
    Dim xRowNum As Long
    Dim xFCount, xFNum, xFNum_R, xFNum_C As Long
    Dim x As Long
    Dim xWst As Worksheet
    Dim xJ As Integer
    
    Set xRng = Application.InputBox(prompt:="Select the range to convert", Type:=8)
    xICols = InputBox("How many columns do you want?")
    xRowNum = InputBox("How many rows do you want in a page?")
    xCount = xRng.Count
    xFCount = Fix(xCount / (xICols * xRowNum))
    If xICols * xRowNum * xFCount < xCount Then xFCount = xFCount + 1
    Set xWst = Worksheets.Add
    xJ = 0
    Application.ScreenUpdating = False
    For xFNum = 1 To xFCount
        If xJ = xCount Then Exit For
        For xFNum_C = 1 To xICols
            If xJ = xCount Then Exit For
            For xFNum_R = 1 To xRowNum
                If xJ = xCount Then Exit For
                xWst.Cells((xFNum - 1) * xRowNum + xFNum_R, xFNum_C) = xRng.Item(xJ + 1)
                xJ = xJ + 1
            Next
        Next
    Next
     Application.ScreenUpdating = True
End Sub



시도해보십시오. 도움이 되길 바랍니다!
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호