E. g

A1:I
A2:am
A3:a
A4:boy 

Tek bir hücre için onları birleştirmek istiyorum"" . İamaboy ^br> Bu örnek 4 hücre 1 hücre birleştirme gösterir ancak ben birçok hücreleri (100'den fazla) var, yazamıyorum onları bir A1 & A2 & A3 & A4 kullanarak ben ne yapabilirim?

Benim ConcatenateRange (adlandırma teşekkürler tavsiye için Jean!) sunuyorum işlevi. Hücre aralığı (herhangi bir boyut, herhangi bir yön, vb.) alacaktır ve onları bir arada tek bir dize içine birleştirmek. İsteğe bağlı üçüncü bir parametre olarak, bir ayraç (boşluk veya virgül sererated) ekleyebilirsiniz.

Bu durumda, siz yazsanız:

=ConcatenateRange(A1:A4)

Function ConcatenateRange(ByVal cell_range As range, _
                    Optional ByVal seperator As String) As String

Dim cell As range
Dim newString As String
Dim cellArray As Variant
Dim i As Long, j As Long

cellArray = cell_range.Value

For i = 1 To UBound(cellArray, 1)
    For j = 1 To UBound(cellArray, 2)
        If Len(cellArray(i, j)) <> 0 Then
            newString = newString & (seperator & cellArray(i, j))
        End If
    Next
Next

If Len(newString) <> 0 Then
    newString = Right$(newString, (Len(newString) - Len(seperator)))
End If

ConcatenateRange = newString

End Function