|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
반갑습니다.
이거 참....
별로 훌륭하지 못한 코드이지만
원래 database sheet에서 필요한 칼럼의 데이터들을 카피해서 새로운 워크북에 복사를
하는 코드입니다. 문제는 그 이후에 생기는데, 이렇게 카피한 데이터중에 rnggrad column에 유효한 데이터가 있는 경우(mygrad<>"") 동적 배열(straddress)에 담아서
나중에 데이터를 포함한 행은 다 delete 를 하려고 합니다. 그런데, 마지막 range속성에계속 에러가 나는 이유를 알 수가 없네요(.range(straddr)).select)
주소를 받는 straddr은 이상이 없는 것 같은데...
갈켜 주세용~~~
With shtNew
.Paste
.Range("a1").Select
Set rngNumReg = .Range(.Cells(2, 1), .Cells(2, 1).End(xlDown))
Set rngGrad = rngNumReg.Offset(0, 10)
For Each mygrad In rngGrad
If mygrad <> "" Then
ReDim Preserve strAddress(intStr) As String
strAddress(intStr) = mygrad.EntireRow.Address(False)
intStr = intStr + 1
End If
Next mygrad
For intStr = 0 To UBound(strAddress) - 1
strAddr = strAddr & strAddress(intStr) & ","
' MsgBox strAddr
Next intStr
strAddr = strAddr & strAddress(UBound(strAddress))
' MsgBox strAddr
.Range(strAddr).Select
Selection.Delete |
|