سلام خدمت دوستان عزیز
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون
					لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون
=a1&c1&g1&h1&j1&m1&n1&o1&q1&s1
=a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1
Function ConcatinateAllCellValuesInRange(sourceRange As Excel.Range) As String
    Dim finalValue As String
    Dim cell As Excel.Range
    For Each cell In sourceRange.Cells
        finalValue = finalValue + CStr(cell.Value)
    Next cell
    ConcatinateAllCellValuesInRange = finalValue
End Function
Sub test()
Dim xx
k1 = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column
For I = 1 To k1
If Cells(1, I) <> "" Then
xx = xx & Cells(1, I)
End If
Next
Range("A2") = xx
End Sub 
کامنت