엑셀 썸네일형 리스트형 엑셀파일의 내용 합친 후 필요없는 행 지우기 Option Explicit Sub DelRows() Dim i As Integer Dim Worksheet As Worksheet Sheets("Sheet1").Select For i = 9 To 1 Step -1 If Cells(i, 1) = "구분" Then Rows(i).Select Selection.Delete shift:=xlUp End If Next i End Sub ------------------- 1열의 내용 중 "구분"이 있으면 해당 행 삭제하고 한 행씩 올려라. 더보기 엑셀파일의 내용 합치기 양식-명령버튼 하나 추가하시고 아래 매크로를 연결 Sub 데이터합치기() Dim Files As Variant Dim fileX As Variant Dim sht As Worksheet Dim wb As Workbook Dim rngTarget As Range Files = Application.GetOpenFilename(filefilter:="Excel Files(*.csv),*.csv", Title:="파일선택", MultiSelect:=True) '여러개 파일이 선택가능하도록 multiselect속성을 '참'으로 한다 Set sht = Worksheets("정리") ' "정리" 시트로 가져오기 위함 For Each fileX In Files Set wb = Workbooks.Open(fileX) .. 더보기 이전 1 2 다음