이게 어리석은 간단한 대답이 될 거라는 건 알지만 지금 당장 나를 죽이고있다 ...
For Each cell In rng2
If cell.Offset(0, -13) And cell.Offset(0, -12).Value <> "" Then
cell.Value = 1
Else
cell.Value = 0
End If
Next cell
.offset 및 .offset이있는 곳에서 어떻게 말할 수 있습니까?
If cell.offset(0,12:13)
그게 아니라는 걸 알아요 ... 이건 간단하지만이 부분을 제대로 이해하면 통합 문서 전체에 걸쳐 vba 코드 전반에 걸쳐 많은 두통을 덜어줍니다.
이 신인을 미리 도와 주셔서 감사합니다!
아마도 다음과 같습니다.
For Each cell In rng2
If Application.CountA(cell.Offset(0, -13).Resize(1, 2)) = 2 Then
cell.Value = 1
Else
cell.Value = 0
End If
Next cell
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다