사하라 2016.05.13 16:31  댓글주소  수정/삭제  댓글쓰기

co = co - 1 대신 i = i + 1 써도 되는지요? 이런 방법이 좀 더 익숙해서 질문 드립니다.

안녕하세요 2018.12.25 23:51  댓글주소  수정/삭제  댓글쓰기

삭제되는 단어리스트를 "경리부" + 여러개를 같이 해주려고 합니다. 이럴 경우

Cells(2, "A").Select
For i = 0 To co
join = Selection.Offset(0, 0) '소속셀값
buNum = Selection.Offset(0, 1) '부서번호셀값

For n = 0 To 5

If join = Worksheets(2).Cells(n, 1).Value Then
Selection.EntireRow.Delete
co = co - 1
deleteRow = deleteRow + 1
Else
Selection.Offset(1, 0).Select
End If
Next n
Next i

이렇게 짜봤는데 에러가 나더라구요. join = Worksheets(2).Cells(n, 1).Value Then 이줄이 문제가
되는데....
포문으로 시트2에 있는 A1~A5 까지의 단어리스트를 포함하는 행을 삭제해주려고 하는데
제 코드에서 어디가 문제가 됐는지 좀 알려주실 수 있으신가요?

초보 2019.02.07 13:07  댓글주소  수정/삭제  댓글쓰기

감사합니다. 근데 deleteRow+1 은 어디에 쓰이는 건가요. 이 코드에서 쓰임새를 못 찾겠네요ㅜㅜ

초보2 2020.05.25 10:37  댓글주소  수정/삭제  댓글쓰기

예제 그대로 해보고있는데
join = Selection.Offset(0,0)'소속셀값
이줄이 메서드 오류라고 뜨는데 왜그러는걸까요 ? ㅠ
중단모드에서는 코드를 실행할 수 없다고 뜨네요

임우준 2020.08.02 18:52  댓글주소  수정/삭제  댓글쓰기

Option Explicit

Sub Crawling()

Dim co As Long, i As Long
Dim join As String
Dim deleteRow As Integer

'추가할 시트에 Row count 를 알아옵니다.
co = ActiveSheet.Range("A1").CurrentRegion.Rows.Count

Cells(3, "A").Select

For i = 0 To co
join = Selection.Offset(0, 0) ' 소속셀값
buNum = Selection.Offset(0, 1) ' 부서번호셀값
If join = "언니들의즐거운쇼핑타임" Then
Selection.EntireRow.Delete

co = co - 1
deleteRow = deleteRow + 1
Else
Selection.Offset(1, 0).Select
End If
Next

End Sub

여기서 buNum = Selection.Offset(0, 1) ' 부서번호셀값에서 오류가 뜨는데 어떻하나요?