[حل شده] ادغام مقادیر چند سلول در یک سلول

[ZAMEN58]

سلام خدمت دوستان عزیز
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون

[M_ExceL]

سلام خدمت دوستان عزیز
لطفا فایل پیوست شده را ببنید
سوال من اینه که چطور میشه مقدار سلول a2 برابر مقادیر سطر اول باشه
ممنون

سلام
بصورت زیر :

=a1&c1&g1&h1&j1&m1&n1&o1&q1&s1

جهت ایجاد فاصله بصورت زیر :

=a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1

بفرمایید :

[ZAMEN58]

سلام
بصورت زیر :

=a1&c1&g1&h1&j1&m1&n1&o1&q1&s1

جهت ایجاد فاصله بصورت زیر :

=a1&" "&c1&" "&g1&" "&h1&" "&j1&" "&m1&" "&n1&" "&o1&" "&q1&" "&s1

بفرمایید :

سلام دوست عزیز خسته نباشید !!!!
این یه مثال هستش از n مقدار سلولی که توی سطر اول موجوده و باید کنار هم بیاد

[M_ExceL]

سلام دوست عزیز خسته نباشید !!!!
این یه مثال هستش از n مقدار سلولی که توی سطر اول موجوده و باید کنار هم بیاد

سلام
البته شما ذکر نکردید که می خواید همچین کاری صورت بگیره و عنوانتون هم نوشتید چند سلول!
بنده طبق فایلی که گذاشتید راهنمایی کردم
این تابع همون چیزی که می خواید رو انجام میده :

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

قسمت سبز رنگ رو ببنید داخل فایل در واقع این تابع تمام ردیف مورد نظر رو ادغام میکنه.
موفق باشید

[iranweld]

با سلام

از کدهای ذیل استفاده کنید

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