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

Jak utworzyć nowe arkusze dla każdego wiersza w programie Excel?

Przypuśćmy, że masz tabelę wyników z nazwiskami wszystkich uczniów w kolumnie A. Teraz chcesz utworzyć nowe arkusze na podstawie tych nazwisk w kolumnie A, a każdy arkusz zawiera unikalne dane ucznia. Lub po prostu utwórz nowy arkusz tylko dla każdego wiersza w tabeli bez uwzględniania nazw w kolumnie A. W tym filmie dowiesz się, jak to osiągnąć.

Utwórz nowe arkusze dla każdego wiersza z kodem VBA
Utwórz nowe arkusze dla każdego wiersza za pomocą narzędzia Podziel dane w Kutools for Excel


Utwórz nowe arkusze dla każdego wiersza z kodem VBA

Za pomocą poniższych kodów możesz utworzyć nowy arkusz na podstawie wartości kolumn lub po prostu utworzyć nowe arkusze dla każdego wiersza w programie Excel.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. A następnie wklej następujący kod do pliku Moduł okno.

Kod VBA: utwórz nowy arkusz dla każdego wiersza na podstawie kolumny

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Uwagi: A1: C1 to zakres tytułów twojej tabeli. Możesz to zmienić w zależności od swoich potrzeb.

3. naciśnij F5 klucz do uruchomienia kodu, nowe arkusze robocze są tworzone po wszystkich arkuszach roboczych bieżącego skoroszytu, jak na poniższym zrzucie ekranu:

Jeśli chcesz bezpośrednio utworzyć nowe arkusze dla każdego wiersza bez uwzględniania wartości kolumny, możesz użyć następującego kodu.

Kod VBA: bezpośrednio utwórz nowy arkusz dla każdego wiersza

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Po uruchomieniu kodu każdy wiersz aktywnego arkusza zostanie umieszczony w nowym arkuszu.

Uwagi: Wiersz nagłówka zostanie również umieszczony w nowym arkuszu z tym kodem VBA.


Utwórz nowe arkusze dla każdego wiersza za pomocą narzędzia Podziel dane w Kutools for Excel

W rzeczywistości powyższa metoda jest skomplikowana i trudna do zrozumienia. W tej sekcji przedstawiamy Podziel dane użyteczność Kutools dla programu Excel.

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

1. Wybierz tabelę, której chcesz użyć do tworzenia nowych arkuszy, a następnie kliknij Kutools Plus> Pluj dane. Zobacz zrzut ekranu:

2. w Podziel dane na wiele arkuszy roboczych w oknie dialogowym, wykonaj następujące czynności.

A. Do tworzenia nowych arkuszy na podstawie wartości kolumny:

1). Proszę wybrać Konkretna kolumna opcję i określ kolumnę, na podstawie której chcesz podzielić dane na liście rozwijanej;
2). Jeśli chcesz nazwać arkusze z wartościami kolumn, wybierz Wartości kolumny Zasady Lista rozwijana;
3). Kliknij OK przycisk. Zobacz zrzut ekranu:

B. Aby bezpośrednio tworzyć nowe arkusze dla każdego wiersza:

1). Wybierz Naprawiono rzędy opcję wprowadź numer 1 do pudełka;
2). Wybierz Numery wierszy z Zasady Lista rozwijana;
3). Kliknij OK przycisk. Zobacz zrzut ekranu:

tworzony jest nowy skoroszyt zawierający wszystkie nowe arkusze. Zobacz zrzuty ekranu poniżej.

Tworzenie nowych arkuszy dla każdego wiersza na podstawie wartości kolumny:

Tworzenie nowego arkusza dla każdego wiersza bez uwzględnienia wartości kolumny:

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

Utwórz nowe arkusze dla każdego wiersza za pomocą narzędzia Podziel dane w Kutools for Excel


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (33)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, chcę utworzyć arkusze robocze na podstawie mojego pliku szablonu Myformat i nazwać je zgodnie z danymi w pierwszej kolumnie. Dostosowałem kod VBA w następujący sposób, ale generuje za dużo pustych arkuszy. Czy możesz mi pomóc przestać generować puste arkusze. Dziękuję Ci. Kumar Sub AddSheets() Dim komórka As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Dla każdej komórki In wsWithSheetNames.Range("A2:A165") With wbTo Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dimple\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" On Error Resume Next ActiveSheet.Name = cell.Value If Err.Number = 1004 Then Debug.Drukuj komórkę.Wartość & „już używane jako nazwa arkusza” End If On Error Przejdź do 0 End With Next cell End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Zawsze dostaję 2 arkusze na unikalny wpis w rzędzie A. Jakiś pomysł dlaczego? Również jak trudno byłoby dołączyć łączną liczbę wierszy utworzonych przez wygenerowany arkusz do nazwy arkusza. Dzięki wielkie! Daj mi znać, jeśli przyjmujesz darowizny.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, chcę użyć mojego szablonu pliku exel MyFormat do generowania arkuszy roboczych i nadawania im nazw według danych w pierwszej kolumnie. Poniższy kod VBA działa dobrze, aby wygenerować arkusze zgodnie z MyFormat. Ale generuje też setki pustych arkuszy na normalnym szablonie programu Excel. Czy jakieś ciało może mi pomóc zatrzymać generowanie nadmiaru pustych kartek. Dzięki Kumar Sub AddSheets() Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook Dla każdej komórki w wsWithSheetNames.Range("A2:BTo.A165") With ws .Add After:=ActiveSheet Sheets.Add Type:= _ "C:\Users\Dreamline\AppData\Roaming\Microsoft\Templates\MyFormat.xltx" On Error Resume Next ActiveSheet.Name = cell.Value If Err.Number = 1004 Następnie Debug.Drukuj komórkę.Wartość & „już używane jako nazwa arkusza” End If On Error Przejdź do 0 Koniec z następną komórką End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Nazwy arkuszy muszą mieć co najmniej trzydzieści znaków.
Niezbyt powszechna wiedza, ale poza tym kod wyświetli domyślny pusty arkusz „Arkusz #”.

Utwórz nowy arkusz roboczy, przez który będzie wykonywany kod analizujący, i odnieś się do pierwszej kolumny w następujący sposób:
=JEŻELI(LUB('Oryginał, do którego istnieje odniesienie'!B1<>"", LEN('Oryginał, do którego istnieje odniesienie'!B1)>30), LEFT('Oryginał, do którego istnieje odniesienie'!B1,30),'Oryginał, do którego istnieje odniesienie'!B1)


Skopiuj lub odwołaj się do reszty arkusza, jak możesz. Upewnij się, że kolumna jest wolna od ograniczeń sprawdzania poprawności danych, jeśli masz jakiekolwiek problemy z odwoływaniem się do innego arkusza.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo za opublikowanie tego!!!! Działał jak urok. Czy możesz wyjaśnić, jak działa pierwszy zestaw kodu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziekuje Ci za to!



Czy w kodzie VBA istnieje mimo to nazwanie wynikowych arkuszy z połączonych danych pierwszego i drugiego wiersza?



więc na przykład arkusz 2 będzie automatycznie nazwany „linda 100”
Ten komentarz został zminimalizowany przez moderatora na stronie
Drogi Joyce,
Dziękuję za Twój komentarz! Mam nadzieję, że poniższy skrypt VBA może ci pomóc.

Sub parse_data()
Dim xRCcount jako długi
Dim xSht jako arkusz
Dim xNSht jako arkusz
Dim I tak długo
Dim xTRrow jako liczbę całkowitą
Dim xCol jako nowa kolekcja
Dim xTitle jako ciąg
On Error Resume Next
Application.ScreenUpdating = Fałsz
Ustaw xSht = Aktywny arkusz
xRCount = xSht.UsedRange.End(xlDown).Row
xTytuł = "A1:B1"
xTRrow = xSht.Range(xTitle).Row
Dla I = 2 do xRCount
Wywołaj xCol.Add(CStr(xSht.Cells(I, 1)), CStr(xSht.Cells(I, 1)))
Dalej
Debug.Drukuj xCol.Count
Dla I = 1 To xCol.Count
Wywołaj xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Ustaw xNSht = Nic
Ustaw xNSht = Arkusze(CStr(xCol.Item(I)))
Jeśli xNSht jest niczym, to
Ustaw xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I) & xSht.Cells(I + 1, 2))
Więcej
xNSht.Move , Arkusze(Arkusze.Liczba)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Dalej
xSht.AutoFilterMode = Fałsz
xSht.Aktywuj
Application.ScreenUpdating = True
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
To było niezwykle pomocne, właśnie tego szukałem. Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
Ten kod jest bardzo pomocny i prawie to, czego szukałem.
Ale czy można go wyregulować tak, aby były dwa arkusze -
Arkusz 1 to Dane - tabela danych z kolumną A jako nazwą
Arkusz 2 to szablon, z licznymi polami wymagającymi wypełnienia
Miałem nadzieję, że uruchomię makro, które
1 Skopiuj i wklej szablon, w tym samym pliku nazwij arkusz tak, jak nazwa w komórce A1
2 Skopiuj komórkę B1, a następnie wklej do wybranego pola w nowym szablonie
3 powtórz w rzędzie 1, aż będzie pusty
4 następnie powtórz dla rzędu 2 i każdego rzędu aż do końca.
Wynikiem jest plik o numerze x. arkusze takie same jak szablon, z wypełnionymi wszystkimi polami.
Odziedziczyłem plik, który działa w drugą stronę, wyodrębniając dane z szablonów do tabeli, ale nie mogę tego odwrócić.....
Ten komentarz został zminimalizowany przez moderatora na stronie
Drogi Sam,
Byłoby miło, gdybyś mógł dołączyć tutaj swój skoroszyt.
Możesz przesłać swój plik za pomocą poniższego przycisku Prześlij pliki.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam Próbowałem użyć twojego kodu, ale pojawia się błąd
Błąd wykonania '1004':
Błąd zdefiniowany przez aplikację lub błąd zdefiniowany przez obiekt
Nie mam wiedzy o VBA (ani żadnej technologii w tym zakresie), ale jeśli debugujesz prasę, podświetla wiersz 11 xRCount=xSht.Cells(xSht.Rows.Count,1). Koniec(xIUp).Wiersz
Pracuję z dużym plikiem, który ma 127 kolumn i 337 wierszy (wiersze będą się różnić, kolumny nie będą) i jest to lista z numerami Id i ich szczegółami.
Zmieniłem zakres, jak zauważyłeś, ale nadal nie działa Używam programu Excel 2010, czy możesz mi powiedzieć, jak to zrobić, jeśli to możliwe
Dziękuję Ci
Ten komentarz został zminimalizowany przez moderatora na stronie
Droga Beatriz,
Kod jest aktualizowany wraz z rozwiązywaniem problemów. Spróbuj ponownie. Dziękuję za Twój komentarz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, myślę, że jest tu coś przydatnego w mojej sytuacji, ale jestem w stanie zrobić VBA lub skrypt, mam nadzieję, że możesz pomóc.
Mam szablon z wieloma komórkami do wypełnienia danymi i będzie klucz wyszukiwania (nie unikalny), który chciałbym wprowadzić do szablonu. Na podstawie klucza wyszukiwania dane są przeszukiwane, a odpowiednie dane w dopasowanym kluczu są pobierane i wypełniane w szablonie. Wypełniony szablon jest zapisywany w nowym arkuszu. Może być więcej niż 1 pasujące wpisy. Potrzebuję skryptu, aby kontynuować przeszukiwanie listy, aż zostaną wybrane wszystkie dopasowania i utworzona pewna liczba nowych arkuszy.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, czy istnieje sposób na zachowanie wiersza nagłówka w każdym nowym arkuszu? (zakreślone na czerwono na moim załączniku)

Kod pobiera wszystkie wiersze z mojego głównego arkusza roboczego i przenosi je do nowych arkuszy, co jest świetne. Ale chcę zachować moją wartość nagłówka „master” (zakreśloną na czerwono) u góry każdego nowego arkusza roboczego. Dzięki!



Mam na myśli ten kod z góry:

Podrzędny wiersz na arkusz()
Dim xRow tak długo
Dim I tak długo
Z ActiveSheet
xRow = .Range("A" i wiersze.Liczba).End(xlUp).Row
Dla I = 1 Do xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Wiersz " & I
.Rows(I).Copy Sheets("Row" & I).Range("A1")
Dalej ja
Kończyć z
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Świetny kod, ale czy mogę uzyskać pomoc, jeśli moje dane znajdują się w kolumnie G zamiast w kolumnie A? co muszę zmienić, aby dane z kolumny G znajdowały się w innej zakładce?

Podziękowania
Ten komentarz został zminimalizowany przez moderatora na stronie
To świetny kod. Wielkie dzięki dla boxów mózgowych w OfficeExtend !! Czy mimo to ten kod można nieco dostosować do tworzenia osobnych arkuszy dla każdej *kolumny* zamiast wiersza? Załączam zdjęcie tego, co chcę osiągnąć. czy to możliwe? Z poważaniem.
Ten komentarz został zminimalizowany przez moderatora na stronie
Dobry dzień,
Nie widziałem tutaj twojego zdjęcia.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć , jak zmodyfikować kod, jeśli moje imię i nazwisko jest w kolumnie C?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Abdul Basit,
Poniższy kod VBA może ci pomóc. Proszę spróbować.
W wierszu: xCName = „3”, 3 wskazuje numer kolumny (tutaj jest kolumna C) w Excelu. Możesz go zmienić na dowolny numer kolumny, zgodnie z potrzebami.

Sub parse_data()
'Aktualizuj do Extendoffice 2018 / 3 / 2
Dim xRCcount jako długi
Dim xSht jako arkusz
Dim xNSht jako arkusz
Dim I tak długo
Dim xTRrow jako liczbę całkowitą
Dim xCol jako nowa kolekcja
Dim xTitle jako ciąg
Dim xSUpdate jako wartość logiczna
Dim xCName jako liczba całkowita
Dim xTA, xRA, xSRg1 jako ciąg znaków
Ustaw xSht = Aktywny arkusz
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Wiersz
xTytuł = "A1:C1"
xCName = "3" 'Zmień ten numer na numer kolumny, na podstawie której będziesz tworzyć nowe arkusze
xTRrow = xSht.Range(xTitle).Komórki(1).Row
Dla I = 2 do xRCount
Wywołaj xCol.Add(xSht.Cells(I, xCName).Text, xSht.Cells(I, xCName).Text)
Dalej
xSUpdate = Aplikacja.Aktualizacja ekranu
Application.ScreenUpdating = Fałsz
xSRg = xSht.Cells(1, xCName).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Dla I = 1 To xCol.Count
Wywołaj xSht.Range(xTitle).AutoFilter(xCName, CStr(xCol.Item(I)))
Ustaw xNSht = Nic
Ustaw xNSht = Arkusze(CStr(xCol.Item(I)))
Jeśli xNSht jest niczym, to
Ustaw xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Więcej
xNSht.Move , Arkusze(Arkusze.Liczba)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Dalej
xSht.AutoFilterMode = Fałsz
xSht.Aktywuj
Application.ScreenUpdating = xSUpdate
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Fajny kod VBA, aby załatwić sprawę.

Jak mogę to zmienić, aby nie kopiować pierwszej kolumny? I usunąć nazwę kolumny?

pozdrowienia
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy mogę uzyskać pomoc, jak automatycznie nazwać arkusze przy użyciu określonej kolumny. To jest dla wiersza do arkusza VBA. Zobacz poniżej

Podrzędny wiersz na arkusz()

Dim xRow tak długo

Dim I tak długo

Z ActiveSheet

xRow = .Range("A" i wiersze.Liczba).End(xlUp).Row

Dla I = 1 Do xRow

Worksheets.Add(, Sheets(Sheets.Count)).Name = "Wiersz " & I

.Rows(I).Copy Sheets("Row" & I).Range("A1")

Dalej ja

Kończyć z

End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Nieważne, że były to ukryte spacje końcowe. Użyłem funkcji TRIM i wyczyściłem ją. Posiadanie liczby wierszy (liczba wierszy naprawdę, więc wiersze -1 dodane do arkusza byłyby niesamowite)
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak odnieść się do użycia powyższego kodu (kredyt)? Czy można zmodyfikować kod?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, to jest otwarta platforma komunikacyjna. Kod może odwoływać się i modyfikować.
Ten komentarz został zminimalizowany przez moderatora na stronie
Nana
86
2
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam! Właśnie użyłem tego kodu i zadziałało! Oprócz utworzenia nowego arkusza dla każdego wpisu, chcę przetransponować go do kolumn i nie mogę tego rozgryźć. Więc dla powyższego przykładu dane wyjściowe dla Nany wyglądałyby tak: Imię lub Nazwa Firmy NanaWynik 86Nie. 2
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, użyłem tego kodu i zadziałało, ale jeśli chcę zaznaczyć więcej niż jeden wiersz w nagłówku, co się zmieni w kodzie? Mam wiele linii w arkuszu, które chcę w każdym arkuszu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, czy zorientowałeś się, jak?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, czy istnieje kod, który doda tylko 1 nowy arkusz za każdym uruchomieniem makra, np. za pierwszym razem nowy arkusz zostanie nazwany w zawartości komórki A1, za drugim razem, gdy makro zostanie uruchomione, nowy arkusz zostanie nazwany na zawartość A1 itp. dzięki z góry!
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL