300x250
0. 예제 작성
1) 시트 4개를 만들었고, summary 탭에 나머지 탭들의 데이터를 복사 붙여넣기 해보자.
1. 코드작성
1) 코드는 셀 1개만 복사하기, 범위 복사하기 2개를 다뤘다.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Sub 다른시트()
Dim ws_count As Integer
Dim ws_name As String
ws_count = Worksheets.Count
For n = 1 To ws_count
ws_name = Sheets(n).Name
' 셀하나만 복사하기
Sheets(ws_name).Cells(1, 1).Copy Sheets("summary").Cells(1, 1)
' 범위로 복사하기1
Sheets(ws_name).Range(Sheets(ws_name).Cells(1, 1), Sheets(ws_name).Cells(2, 2)).Copy Sheets("summary").Cells(3, 3)
' 범위로 복사하기2
Sheets(ws_name).Range("B1:B2").Copy Sheets("summary").Cells(5, 5)
Next
End Sub
|
cs |
2. 결과
1) 마지막 시트인 sheet1 의 값들만 복사가 되었다.
300x250
'엑셀 > VBA' 카테고리의 다른 글
| 엑셀 vba/시트 없으면 시트 생성하기/On Error Resume Next/Sheets.Add.Name (0) | 2023.08.13 |
|---|---|
| 엑셀 vba/다른 시트 데이터가져오기/문자열 포함 여부 확인 함수 활용/InStr (0) | 2023.08.13 |
| 엑셀 vba/시트이름 가져오기/시트이름 변수에 넣어 활용하기 (0) | 2023.08.13 |
| 엑셀 vba/필터된 셀에 붙여넣기/보여지는셀에만 붙여넣기/필터숨겨진셀에 복사됨 (0) | 2023.08.10 |
| 엑셀 vba - 하이퍼링크/한번에 하이퍼링크/셀 순서대로 하이퍼링크하기/순차/차례대로 링크걸기 (0) | 2021.12.18 |