|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2019
* 아래줄에 질문을 작성하세요 >>
Sub Test_03()
Dim lngE As Long
Dim rngD As Range
Dim i As Long
Sheets("결과").Select
lngE = Cells(Rows.Count, "a").End(xlUp).Row
' 시작라인인듯
For i = 2 To lngE
If Range("c" & i) >= Range("k4") And Range("c" & i) <= Range("k5") Then
'여학생이면서 평균 60점 이상
If rngD Is Nothing Then
Set rngD = Range("a" & i).Offset(0, 0).Resize(1, 6)
'rngD.Select
'단계별 실행에서 확인용
Else
Set rngD = Union(rngD, Range("c" & i).Offset(0, 0).Resize(1, 6))
'rngD.Select
'단계별 실행에서 확인용
End If
End If
Next
If rngD Is Nothing Then
MsgBox "복사할 범위가 없습니다."
Else
Sheets("내역").Select
Range("A1").CurrentRegion.Offset(0, 0).Clear
rngD.Copy Range("a1")
End If
Range("a1").Select
End Sub
데이터에서 시작일 종료일 검색해서 그사이에있는 값을 가지고와
복사하는 내용인데요 오류가 나는데 진행이 안되네요
엑셀 매크로는 배운적이 없고 인터넷 검색을 이용해서 만들어봤는데
도움좀 부탁드립니다.
|
|