B에 단어가 있는지 여부에 따라 두 열 A와 B에서 일부 데이터를 PRNA
복사 한 다음 A와 B를 "Sheet1"에 복사합니다. 지금 내가 직면 한 문제는 그것이 가진 모든 것을 복사 PRNA
하지만 때로는 복사 한다는 Not available
것입니다. 다음은 코드입니다.
Dim Cell2 As Range, LastRow2 As Long
Dim count As Integer
LastRow2 = Cells(Rows.count, "B").End(xlUp).Row
Set rng3 = Range("B2:B" & LastRow2)
Set ws = Sheets("Sheet1")
For Each Cell2 In rng3
If Cell2.Value = "PRNA" Then
'Range(Cells(rng3.Row, 1), Cells(rng3.Row, 2)).Copy
'Range("A1").Offset(count, 0).PasteSpecial
Range(Cells(Cell2.Row, 1), Cells(Cell2.Row, 2)).Copy Destination:=ws.Range("A1").Offset(count, 0)
count = count + 1
End If
Next Cell2
그래서 나는 복사 PRNA
하고 있으며 셀 B 옆에 PRNA
.
그리고 이것은 출력입니다.
여기서 문제가 뭔지 모르겠네요 .. 너무 빨리 반복 될 수 있나요?
이것은 작동합니다 :
Sub copyPRNA()
Dim ows As Worksheet
Dim tws As Worksheet
Dim rng As Range
Dim cell2 As Range
Dim cnt As Long
Set ows = ActiveSheet
Set tws = Sheets("Sheet1")
Set rng = ows.Range(ows.Range("B2"), ows.Range("B" & ows.Rows.Count).End(xlUp))
For Each cell2 In rng
If cell2 = "PRNA" Then
tws.Range("A" & tws.Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = ows.Range(cell2.Offset(, -1), cell2).Value
End If
Next cell2
End Sub
항상 범위 및 셀로 작업 할 때 부모를 한정합니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다