여러 워크 시트 / 워크 북을 단일 워크 시트 / 워크 북으로 쉽게 결합

다음 VBA 코드를 사용하면 여러 워크 시트에서 지정된 셀의 목록을 쉽게 만들 수 있습니다. 다음과 같이 할 수 있습니다.

1 단계 : 목록을 만들 지정된 셀을 선택합니다. 이 경우 Cell E6을 선택합니다.

2 단계 : 보도 자료 다른 + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 열고 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

VBA : 여러 시트에 걸쳐 동일한 셀에서 목록 만들기

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

3 단계 : 보도 자료 F5 키를 누르거나 달리기 버튼을 눌러이 VBA를 실행합니다.

그런 다음 모든 워크 시트에있는 지정된 셀의 모든 값이 KutoolsforExcel이라는 새 워크 시트에 복사됩니다. 스크린 샷보기 :

이 VBA는 목록을 새 워크 시트에 채우고 목록의 값은 정적이므로 원래 값으로 변경되지 않습니다.

그러나 때로는 목록을 지정된 범위로 채우고 목록 값이 항상 지정된 셀의 원래 값과 일치하도록 요구할 수 있습니다. 이러한 요구를 충족하려면 다음 방법을 시도해야합니다.

이 방법은 Excel 용 Kutools의 동적으로 워크 시트 참조 여러 워크 시트의 동일한 셀에서 동적 목록을 만드는 유틸리티.

1 단계 : 동적 목록을 채울 범위를 선택하고 쿠툴 > 더 보기 > 동적으로 워크 시트 참조.

2 단계 : 워크 시트 참조 채우기 대화 상자를 엽니 다.

(1) 주문 채우기 상자를 클릭하고 드롭 다운 목록에서 채우기 유형을 선택합니다. 우리의 경우에는 셀 뒤에 세로로 셀 채우기;

(2) 수식 채우기 상자에서 동적 목록을 만들 셀 주소를 지정한 다음 로크 단추  수식을 잠급니다.

(3) 채우기 범위 버튼을 클릭합니다.

이제 아래 스크린 샷과 같이 모든 워크 시트의 지정된 셀에있는 값이 지정된 범위로 채워지는 것을 볼 수 있습니다.

원래 값이 변경되면이 지정된 목록의 해당 값이 자동으로 변경됩니다.

다른 시트의 동일한 셀을 Excel의 시트로 자동 채우는 방법은 무엇입니까?