"> 제목 "> 제목 ">
<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

1. 내돈내산 review

1-1. 인증

image.png

1-2.리뷰 한줄평

2. 의미있던 부분??

2-1. VBA에 대한 기초적인 내용

  1. 여러 엑셀파일을 하나로 다루는 기능을 구현하고자 할때
  2. [프롬프트 예시]

어떤 폴더에 엑셀파일이 여러개 있다. 이파일을 하나씩 열어서 첫번째 시트에 있는 내용을 복사해서 하나로 합치는 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

2-2.설정 변경 필수

![image.png](attachment:bcb7c5ad-79d6-48c4-bfb1-7181e3d1066f:image.png)

image.png