<head>
<!-- HTML Meta Tags -->
<meta charset="UTF-8" />
<title> 제목 </title>
<meta
name="description" content=" 챗GPT와 업무자동화 review " />
<meta name="keywords" content="챗GPT와 업무자동화, 챗GPT와 업무자동화 review , 양파고, Yang Phago, 노션, 양파고 노션, notion" />
<!-- Open Graph / Facebook -->
<meta property="og:title" content="챗GPT와 업무자동화 review " />
<meta property="og:description" content=" 챗GPT와 업무자동화, 챗GPT와 업무자동화 review , 양파고, 양파고, Yang Phago, 노션, 양파고 노션 " />
<meta property="og:image" content="대표 이미지" />
<meta property="og:url" content="페이지 주소" />
<meta property="og:type" content="website" />
</head>
<aside> 💡 한줄평: 중수이상은 내돈내산 비추천, 초보들에게는 내돈내산 할만함
</aside>
https://image.yes24.com/goods/117937260/XL
목차는 매력적이나 책을 풀어가는 방식은 기대만큼 매력적이 않아 아쉬움이 남음.
공감갔던 리뷰
어떤 폴더에 엑셀파일이 여러개 있다. 이파일을 하나씩 열어서 첫번째 시트에 있는 내용을 복사해서 하나로 합치는 VBA코드 만들어줘]
Sub MergeFirstSheetFromAllExcelFiles()
' 1. 변수 선언
Dim FolderPath As String
Dim FileName As String
Dim SourceWorkbook As Workbook
Dim TargetWorkbook As Workbook
Dim SourceWorksheet As Worksheet
Dim TargetWorksheet As Worksheet
Dim LastRow As Long
Dim PasteRow As Long
Dim FileDialog As FileDialog
' 2. 폴더 선택 대화상자
Set FileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If FileDialog.Show <> -1 Then
MsgBox "폴더가 선택되지 않았습니다.", vbExclamation
Exit Sub
End If
FolderPath = FileDialog.SelectedItems(1) & "\\"
' 3. 대상 통합 문서 설정
Set TargetWorkbook = ThisWorkbook
' 4. 기존 시트가 있으면 삭제하고 새로 생성
On Error Resume Next
Application.DisplayAlerts = False
TargetWorkbook.Sheets("MergedData").Delete
Application.DisplayAlerts = True
On Error GoTo 0
Set TargetWorksheet = TargetWorkbook.Sheets.Add
TargetWorksheet.Name = "MergedData"
PasteRow = 1
' 5. 폴더 내 모든 엑셀 파일 반복
FileName = Dir(FolderPath & "*.xlsx")
Do While FileName <> ""
' 다른 통합 문서 열기
Set SourceWorkbook = Workbooks.Open(FolderPath & FileName, ReadOnly:=True)
' 첫 번째 워크시트 가져오기
Set SourceWorksheet = SourceWorkbook.Sheets(1)
' 복사할 마지막 행과 열 확인
LastRow = SourceWorksheet.Cells(SourceWorksheet.Rows.Count, 1).End(xlUp).Row
LastCol = SourceWorksheet.Cells(1, SourceWorksheet.Columns.Count).End(xlToLeft).Column
' 데이터 복사 → 대상 워크시트에 붙여넣기
SourceWorksheet.Range(SourceWorksheet.Cells(1, 1), SourceWorksheet.Cells(LastRow, LastCol)).Copy
TargetWorksheet.Cells(PasteRow, 1).PasteSpecial Paste:=xlPasteValues
' 다음 붙여넣기 위치 계산
PasteRow = TargetWorksheet.Cells(TargetWorksheet.Rows.Count, 1).End(xlUp).Row + 1
' 원본 문서 닫기
SourceWorkbook.Close SaveChanges:=False
' 다음 파일로 이동
FileName = Dir
Loop
' 마무리
Application.CutCopyMode = False
MsgBox "모든 파일의 첫 시트 내용이 병합되었습니다.", vbInformation
End Sub
런타임 오류가 발생한다면?
