기본적으로 제가하는 일은 AI 열에 데이터가 있고 D의 값으로 데이터 [Columns DG]를 복사하려고합니다.이 루프에서 D의 항목이 "1CME Cash- 정착 버터 ".
그런 다음 K 열 (= 11)에서 시작하여 붙여 넣습니다. 그런 다음 행을 쌓습니다.
루프가 다시 시작되고 다른 값을 찾기 시작합니다.
내 문제는 내가 많은 실행에 대해 코드를 잘 실행했다는 것입니다. 그 이후로 코드를 변경하지 않았지만 이제 런타임 오류 유형 '13'불일치가 발생합니다. 이 문제를 해결하거나 새 코드를 작성할 방법이 있습니까?
저는 VBA를 배우는 중입니다!
감사!
iRow = 2
For Each i In Range("D2:D200")
If i.Value = "1CME Cash-Settled Butter" Then
Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
iRow = iRow + 1
End If
Next i
iRow = 30
For Each i In Range("D2:D200")
If i.Value = "-1CME Cash-Settled Butter" Then
Range(i.Offset(0, 0), i.Offset(0, 3)).Copy
Cells(iRow, 11).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iRow = iRow + 1
End If
Next i
변경 i.Value
에 i.Text
. 값을 정수와 비교하기 때문에 값을 원하지 않습니다. 문자열을 확인하고 싶을 때 사용 i.Text
하면됩니다.
당신도 할 수 cstr(i.Value)
있지만 그것이 최선의 방법은 아닙니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다