728x90 SMALL 매크로4 엑셀 파일에서 특정 텍스트를 포함하는 행을 찾아서 삭제하는 매크로 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 텍스트_포함_행_삭제() ' 텍스트 포함 행 삭제 매크로 Dim ws As Worksheet Dim searchRange As Range Dim cell As Range ' 검색할 범위 지정 Set ws = ThisWorkbook.Sheets("Sheet1") Set searchRange = ws.Range("A1:C10") ' 행 삭제 For Each cell In searchRange If InStr(1, cell.Value, "삭제할 텍스트") > 0 Then cell.EntireRow.Delete End If Next cell E.. 2023. 4. 14. 엑셀 파일에서 여러 시트에 걸쳐 있는 데이터를 하나의 시트로 합치는 매크로 엑셀 파일에서 여러 시트에 걸쳐 있는 데이터를 하나의 시트로 합치는 매크로를 만들어 보겠습니다. 엑셀 파일을 엽니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 데이터_합치기() ' 데이터 합치기 매크로 Dim ws As Worksheet Dim data As Variant Dim newData As Variant Dim lastRow As Long, lastCol As Long Dim i As Long, j As Long, k As Long ' 새로운 시트 추가 Set ws = ThisWorkbook.Sheets.Add ws.Name = "Combined Data" k = 1 ' 모든 시트에서 데이.. 2023. 4. 14. 엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장 매크로 엑셀 파일에 있는 데이터를 읽어와서 특정 조건에 맞는 데이터를 필터링하여 새로운 시트에 저장하는 매크로를 만들어 보겠습니다. Sub 데이터_필터링() ' 데이터 필터링 매크로 Dim ws As Worksheet Dim data As Variant Dim newData As Variant Dim i As Long, j As Long Dim criteria As String ' 원본 데이터를 배열에 저장 Set ws = ThisWorkbook.Sheets("Sheet1") data = ws.Range("A1").CurrentRegion.Value ' 필터링 조건 설정 criteria = "F" ' 필터링된 데이터를 새로운 시트에 저장 Set ws = ThisWorkbook.Sheets.Add ws.Name .. 2023. 4. 14. 엑셀 파일에 있는 모든 시트의 이름을 변경하는 매크로 예시로, 엑셀 파일에 있는 모든 시트의 이름을 변경하는 매크로를 만들어 보겠습니다. [개발] 탭에서 [Visual Basic]을 클릭합니다. [삽입] -> [모듈] 을 클릭하여 새 모듈을 추가합니다. 다음 코드를 입력합니다. Sub 시트_이름_변경() ' 시트 이름 변경 매크로 Dim sh As Worksheet Dim newName As String ' 각 시트의 이름을 변경 For Each sh In ThisWorkbook.Sheets newName = "NewName_" & sh.Index sh.Name = newName Next sh End Sub 매크로를 실행하려면 [F5] 키를 누르거나, 개발 탭에서 매크로 이름을 선택한 후 [실행]을 클릭합니다. 이제 모든 시트의 이름이 "NewName_1".. 2023. 4. 14. 이전 1 다음 728x90 LIST
