(آموزشی) درج مقادیر چندین سلول در یک سلول

[ali.b]

سلام
گاهی پیش میاد چندین مقدار در یک ستون دارین و نیاز هست در یک سلول و با کاراکتری مثلا dash یا - از هم تفکیک بشن

Sheet1.Select
Dim c As Range
For Each c In Sheet3.Range("A2", Range("A65536").End(xlUp))
If p0.Text = c And c <> "" Then
Dim I As Integer
Dim s As String
I = 0
Do Until Sheet4.Cells(2 + I, 2).Value = ""
    If (s = "") Then
        s = Sheet4.Cells(2 + I, 2).Value
    Else
        s = s & "-" & Sheet4.Cells(2 + I, 2).Value
    End If
    I = I + 1
Loop
c.Offset(0, 18) = s
End If
Next c

[Amir Ghasemiyan]

ممنون بابت آموزش خوبتون

يك راه خلاصه تر هم من عرض ميكنم كه تاپيك پربار تر بشه

Sub EI_Join()
a = Application.Transpose(Range("A1:A10"))
b = Join(a, "-")
End Sub