빈 셀이있을 때 셀을 반복하고 연결합니다.

열 A의 셀을 반복하고 싶습니다. 셀이 비어 있으면 B 열의 C 열에서 CONCATENATE 함수를 수행합니다.이 코드가 있지만 작동하지 않습니다. 어떤 도움이라도 대단히 감사하겠습니다.

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
    Cells(i, 3) = CONCATENATE(Cells(i, 2), " ", Cells(i + 1, 2))
    End If
Next i
End Sub

vba

— matrix23
소스

정확하게 "작동하지 않는"것은 무엇입니까? "열 B에서 열 C의 ONCATENATE 함수"- 정확히 어떻게할까요? 약간의 불일치 CONCATENATE(Cells(i, 2), " ", Cells(i + 1, 2))

— Máté Juhász

이것은 하나의 명령없이 작동합니다 (아마도 더 빠름) :

Sub ConcateBlank()

For i = 3 To 400
    If Cells(i, 1) = "" Then
        Cells(i, 3) = Cells(i, 2) & " " & Cells(i + 1, 2)
    End If
Next i
End Sub

— duDE
소스

심지어 차이점은 무엇입니까? Cells(i + 1, 2) 과 Cells(i, 2)?

— Christofer Weber

i = 1이면 셀 (i + 1, 2)은 셀 (2, 2)이고 셀 (i, 2)은 셀 (1,2)이거나 질문을 오해 한 것입니까?

— duDE

그래, 아니야. 나는 그가 찾고 있던 것을 오해했다. 나는 영양 부족을 비난한다. 해명 해줘서 고마워.

— Christofer Weber

안녕 야, 그래,이게 내가 바라는거야 스크립트는 이런 식으로 라운드에만 작동합니다 : 셀 (i, 3) = 셀 (i + 1, 2) & amp; "& amp; 셀 (i, 3) = 셀 (i, 2) 및 셀 (i, "& amp; 세포 (i + 1, 2) 왜 이렇게되지 않을까요? 건배

— matrix23

Ok입니다. 문제를 분류했습니다. 당신의 도움을 주셔서 대단히 감사합니다. 나는 VBA에 대해 상당히 새롭기 때문에 아직도 내 길을 찾고 있습니다. 다시 한 번 감사드립니다!

— matrix23