Jak wydrukować długą kolumnę na jednej stronie w programie Excel?
Przypuśćmy, że masz długą listę danych w kolumnie, może 200 wierszy, a teraz musisz je wydrukować, ale kiedy drukujesz, używa około 5 stronicowego papieru, z tylko jedną kolumną po lewej stronie i dużą ilością spacji po prawej stronie. Słowem, możesz kolumnować, ale Excel nie ma tej funkcji. Jak wydrukować dane długiej listy na jednej stronie, aby zaoszczędzić papier?
Wydrukuj długą kolumnę na jednej stronie z formułą
Wydrukuj długą kolumnę na jednej stronie z kodem VBA
Wydrukuj długą kolumnę na jednej stronie za pomocą Kutools for Excel
Wydrukuj długą kolumnę na jednej stronie z formułą
Tutaj mogę przedstawić długą formułę rozwiązania tego problemu, wykonaj następujące czynności:
1. W nowym arkuszu aktywnego skoroszytu wprowadź formułę =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) do komórki A1.
Uwagi: Sheet1 to arkusz roboczy zawierający długą listę, którą chcesz umieścić w kolumnie.
45 to numer wiersza, w którym chcesz wyświetlić dane w kolumnie.
Wszystkie są zmiennymi i możesz je zmienić w razie potrzeby.
2. Następnie wybierz komórkę A1 i przeciągnij uchwyt wypełniania w dół do wiersza 45, a następnie przeciągnij uchwyt wypełniania w prawo, aż dane zostaną wyświetlone. Długa kolumna została podzielona na kilka kolumn, aby zmieścić się na jednej stronie w nowym arkuszu. Zobacz zrzut ekranu:
Wydrukuj długą kolumnę na jednej stronie z kodem VBA
Poniższy kod VBA może również pomóc w podzieleniu długiej listy danych na kilka kolumn, aby można było wydrukować dane i zaoszczędzić papier.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu i wybierz listę danych, które chcesz podzielić w wyskakującym oknie dialogowym, zobacz zrzut ekranu:
4. Kliknij OKi wprowadź liczbę kolumn, które chcesz podzielić. Zobacz zrzut ekranu:
5, i kliknij OK, długa kolumna została podzielona na pięć kolumn w nowym arkuszu. Zobacz zrzuty ekranu:
Wydrukuj długą kolumnę na jednej stronie za pomocą Kutools for Excel
Zarówno długa formuła, jak i kod VBA mogą być dla Ciebie trudne, tutaj mogę przedstawić łatwą i wygodną metodę rozwiązania tego problemu. Kutools dla programu Excel'S Drukuj wiele kolumn funkcja może pomóc w szybkim podzieleniu długiej kolumny na kilka kolumn, aby można było je rozsądnie wydrukować.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.
Po zainstalowaniu Kutools dla programu Excel możesz wykonać następujące czynności:
1. Kliknij Enterprise > Drukuj wiele kolumnzobacz zrzut ekranu:
2, w Drukuj wiele kolumn Okno dialogowe:
- Kliknij pierwszy , aby wybrać tytuł zakresu, a następnie kliknij drugi , aby wybrać kolumnę, którą chcesz podzielić.
- Następnie określ liczbę wierszy, z których chcesz umieścić na stronie Wiersze na wydrukowaną stronęi wprowadź liczbę kolumn, które chcesz umieścić na jednej stronie Liczba segmentów. Zobacz zrzut ekranu:
3. Następnie kliknij OK, dane z długiej listy zostały podzielone na pięć kolumn na stronie. Zobacz zrzuty ekranu:
Uwagi:
1. Tytuł zostanie dodany przed każdą kolumną.
2. Jeśli zaznaczysz Utwórz łącze z aktywnym arkuszem opcja, nowe dane arkusza mogą być połączone z danymi źródłowymi.
Jeśli chcesz dowiedzieć się więcej o tej funkcji, kliknij Drukuj wiele kolumn.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!