It won't hurt to try

두 시트의 key항목을 기준으로 각 항목들의 값을 비교해서, 〇/×로 결과를 출력한다. 사용법①엑셀의 매크로창을 열어서, 모듈을 생성하고 밑의 소스를 복붙한다.②소스를 수정한다. 비교 하는 두 시트의 이름을 지정한다.・sheetBase：이 시트를 기준으로 sheetTarget과 비교한다. sheetBase에 없는 항목은 비교하지 않는다.・sheetTarget③비교하는 두 시트의 A열은 키항목으로서 사용한다.Sub CompareSheets_WithCopy() Dim wsA As Worksheet, wsB As Worksheet, wsResult As Worksheet Dim lastRowA As Long, lastRowB As Long Dim lastColA As Long, lastColB..

Dim ws As Worksheet For Each ws In Worksheets ws.Select Cells.Select Selection.NumberFormat = "General" Next

Sub deleteButton2_clicked() ' Const Const update As String = "update" Const hyphen As String = "-" Const Oh As String = "O" Const search_start As String = "C3" Const delete_standard_cell As String = "C3" ' Dim Dim sheet_name As String Dim rMulti As Range Dim remove_rows As String Dim remove_columns As String Dim list As Variant Dim index As Integer ' init ReDim list(0) index = 0 ' Exit Sub If Ra..

Sub deleteButton_clicked() ' variable Dim sheet_name As String Dim search_start As String Dim remove_module As String Dim delete_flg As Boolean ' init search_start = "C3" delete_flg = False ' Exit sub If Range(search_start).Value = "" Then Exit Sub End If ' select cells Range(search_start, ActiveSheet.Range(search_start).End(xlDown)).Select ' delete sheet and get rows Set rMulti = Selection.Cell..

Function MyTextJoin(rX, sCriteria, rY) As String ' rX: 조건범위, sCriteria: 조건, rY: 이름 범위 ' 변수 선언 Dim rCell As Range Dim iOffset As Integer Dim sTemp As String ' 조건 범위 열 번호 - 이름 범위 열 번호 iOffset = rY.Column - rX.Column For Each rCell In rX If rCell = sCriteria Then If sTemp = "" Then sTemp = rCell.Offset(, iOffset) Else sTemp = sTemp & ", " & rCell.Offset(, iOffset) End If End If Next MyTextJoin = sT..

Sub Button1_Click() ' variable Dim file_path As String '검색파일주소 Dim sheet_name As String '검색시트명 Dim search_area As String '검색영역 Dim search_start As String '검색시작셀 Dim rng As Variant ' init file_path = Range("I2").Value sheet_name = Range("I3").Value search_area = Range("I4").Value search_start = "H13" ' get data Application.Workbooks.Open FileName:=file_path rng = Sheets(sheet_name).Range(search_a..