|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2007
* 아래줄에 질문을 작성하세요 >>
Sub Button1_Click()
Dim rng As Range, rngName As Range
Dim rngRow As Range
Dim strFind As String
Dim r As Integer
Set rngName = Columns("A").SpecialCells(xlCellTypeConstants)
Set rngRow = Sheet2.Range("A2:C2")
strFind = "4001 "
Range(rngRow, rngRow.End(xlDown)).ClearContents
For Each rng In rngName
If InStr(rng, strFind) > 0 Then
rngRow.Offset(r, 0) = rng.Offset(0, 0).Resize(, 3).Value
r = r + 1
End If
Next rng
Set rngName = Columns("A").SpecialCells(xlCellTypeConstants)
Set rngRow = Sheet3.Range("A2:C2")
strFind = "4002 "
Range(rngRow, rngRow.End(xlDown)).ClearContents
For Each rng In rngName
If InStr(rng, strFind) > 0 Then
rngRow.Offset(r, 0) = rng.Offset(0, 0).Resize(, 3).Value
r = r + 1
End If
Next rng
Set rngName = Columns("A").SpecialCells(xlCellTypeConstants)
Set rngRow = Sheet4.Range("A2:C2")
strFind = "4005"
Range(rngRow, rngRow.End(xlDown)).ClearContents
For Each rng In rngName
If InStr(rng, strFind) > 0 Then
rngRow.Offset(r, 0) = rng.Offset(0, 0).Resize(, 3).Value
r = r + 1
End If
Next rng
End Sub
해당코드는 특정단어포함한 행을 원하는 시트로옮겨주는 코드입니다.
그런데 첫번째 4001 단어를포함한 행은 다른시트로옮겨주나 4002,4005는 안되는대요
4002,4005도 작업이되도록 코드수정좀 부탁드립니다
|
|