Put Formula

[Abhijeet]

Hi

I have Numbers in Column A i want concatenate the cells i show in attach file how to do this in macro please tell me

 

[Deepak]

Probably a UDF....

Public Function myJoin(a As Variant) As String
Dim sep As String: sep = "-"
   
    Dim y As Variant
    If TypeOf a Is Range Then
        For Each y In a.Cells
            myJoin = myJoin & y.Value & sep
        Next y
    ElseIf IsArray(a) Then
        For Each y In a
            myJoin = myJoin & y & sep
        Next y
    Else
        myJoin = myJoin & a & sep
    End If
    myJoin = Left(myJoin, Len(myJoin) - Len(sep))
End Function

 

[Abhijeet]

Thanks Deepak