댓글 리스트
-
답댓글 작성자 최우성 작성시간17.07.04 ALT + F11을 누르시면 VBA 창이 열리고 거기에 실행할 내용을 미리 코딩해 놓은 거고요.
수식으로 처리하기가 다소 부담스러워서 VBA로 처리를 했으며 아울러 VBA 실행하기라는 단추에 연결을 해놓았습니다.
Sub 테스트()
Dim C As Range, rngS As Range, rngT As Range
Dim A()
Dim i As Integer
Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
Set rngS = Union(Range("F5:F8"), Range("H5:H8"), Range("J5:J8"))
Set rngT = Range("A" & Rows.Count).End(xlUp)
For Each C In rngS
If C.Value Then
ReDim Preserve A(i)
A(i) = C.Offset(0, -1)
i = i + 1
End If
Next C
~~ VBA부