rand(life)

오늘의 질문글은 엑셀에서 두열의 셀값을 비교하여두개의 셀값이 같으면하나의 값을 삭제하는 매크로이다. 이정도는 쉽지... 하면서 내가 만든 코드는 다음과 같다Sub del_dup() Dim rng As Range, r As Range Set rng = Range("B1", Cells(Rows.Count, "B").End(3)) For Each r In rng If r = r(, 2) Then r(, 2).ClearContents End If Next End Sub 답변을 달려고 했더니, 큰형님의 답변이 이미 달려있다.Sub Macro() Dim rng As Range Application.ScreenUpdating = False On Error Resume Next For Each rng In Column..

'[제목줄 제외하고 아래끝까지 범위 재설정]With RngSet Rng = .Offset(1).Resize(.Rows.Count - 1, .Columns.Count)End With '[autofill 채우기]날짜.AutoFill Destination:=날짜.Resize(15), Type:=xlFillWeekdays, '평일날짜로만 채움' Type:=xlFillCopy '셀복사로 채움 '[한 셀 안의 문자열 중 일부만 첨자 및 색입히기]With Range("A1").Characters(4, 6).Font '4~6번째 문자.Superscript = True '위첨자.Subscript = False '아래첨자.Color = vbRedEnd With [범위중 두 번째 열 지정]Set r = sht.Range("..