Z łatwością łącz wiele arkuszy roboczych / skoroszytów w jeden arkusz roboczy / skoroszyt

Za pomocą następującego kodu VBA można łatwo utworzyć listę z określonych komórek w wielu arkuszach roboczych. Możesz wykonać następujące czynności:

Krok 1: Wybierz określoną komórkę, z której utworzysz listę. W naszym przypadku wybieramy Cell E6.

Krok 2: Naciśnij inny + F11 jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications, kliknij wstawka > Moduł, a następnie wklej następujący kod w oknie modułu.

VBA: Utwórz listę z tych samych komórek na wielu arkuszach

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Krok 3: Naciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

Następnie wszystkie wartości z określonej komórki we wszystkich arkuszach roboczych są kopiowane do nowego arkusza o nazwie KutoolsforExcel. Zobacz zrzut ekranu ：

Ten VBA wypełni listę w nowym arkuszu, a wartości na liście są statyczne i nie zmienią się z oryginalnymi wartościami.

Czasami jednak możesz chcieć wypełnić listę w określonym zakresie i wymagać, aby wartości listy zawsze były zgodne z oryginalnymi wartościami w określonych komórkach przez cały czas. Aby sprostać tym potrzebom, powinieneś wypróbować następującą metodę.

Ta metoda wprowadzi Kutools dla programu Excel'S Dynamicznie odwołuj się do arkuszy roboczych narzędzie do tworzenia dynamicznej listy z tych samych komórek w wielu arkuszach.

Krok 1: Wybierz zakres, w którym wypełnisz listę dynamiczną, i kliknij Kutools > Więcej > Dynamicznie odwołuj się do arkuszy roboczych.

Krok 2: W otwartym oknie dialogowym Wypełnij odniesienia do arkuszy roboczych,

(1) Kliknij Wypełnij zamówienie i wybierz typ wypełnienia z listy rozwijanej. W naszym przypadku wybieramy Wypełnij pionowo komórkę po komórce;

(2) W Wypełnij formułę określ adres komórki, na podstawie którego utworzysz listę dynamiczną, a następnie kliknij Zablokować przycisk  aby zablokować formułę.

(3) Kliknij Wypełnij zakres przycisk.

Teraz zobaczysz, że wartości w określonych komórkach we wszystkich arkuszach roboczych są wypełnione w określonym zakresie, jak pokazano na poniższym zrzucie ekranu:

Gdy oryginalne wartości ulegną zmianie, odpowiednie wartości na tej określonej liście zostaną automatycznie zmienione.

Jak automatycznie wypełnić tę samą komórkę z różnych arkuszy do arkusza w programie Excel?