پرسش چگونگی ادغام کردن حروف در اکسل

[armanoskouei]

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

مشکل ما اینجا هستش که هر کامنت ، یعنی هر تگ یک سلول شده ، به طور مثال از شماره 3 تا شماره 7 یک کاربر هست اما داخل یک سلول نیست و پراکندست ...
نیاز داریم این موارد که از طرف یک کاربر تگ شدند داخل یک سلول کنار هم بیان .

نمونه کنار هم قرار گرفته شده :

این فایل نمونه هستش که از یک سایت دانلود کردم ، به دلیل اینکه این سایت برای هر فایل مبلغی دریافت میکنند نمیتونیم باهاشون کار کنیم و نیاز داریم که خودمون این خروجی رو به دست بیاریم .

با چه فرمول یا روشی میتونیم افرادی که با یک یوزرنیم کامنت گذاشتند ، کامنت هاشون رو داخل یک سلول بیاریم ؟

با تشکر

[misammisam]

سلام
اول به شیت دیتاتون یه ستون اضافه کنید بنام تعداد منشن و کد زیر رو داخلش کپی کنید :

=LEN(D2)-LEN(SUBSTITUTE(D2;"@";"")) 

بعد دیتاتونو تبدیل به جدول کنید و نامی براش قرار بدید .
بعد یه PivotTable از جدولی که ساختید بسازید و موقع ساختن PivotTable حواستون باشه تیک Add this data to the Model رو در پایین ویزارد PivotTable بزنید و در آخر باید یه Measure درون PivotTable برای نشون دادن تکسهای کامنتاتون درون PivotTable بسازید و فرمول درون Measure هم بشکل زیر باید باشه (با توجه به اینکه اسم جدولو من گذاشتم DataMation )

=CONCATENATEX(DataMation;DataMation[Comment];",") 

[مرتضی حسینی]

با سلام را سادتری که به نظرم رسید اسفاده از منوی دیتا و بعد سابتوتال با تنظیمات سابتوتال تعداد هر ایتم بسرعت بدست می اید فقط قبلش بایستی جدول رو براساس ستون مورد نظر از کم به زیاد یا برعکس مرتب کنید
حسینی 98/6/21

[misammisam]

با سلام را سادتری که به نظرم رسید اسفاده از منوی دیتا و بعد سابتوتال با تنظیمات سابتوتال تعداد هر ایتم بسرعت بدست می اید فقط قبلش بایستی جدول رو براساس ستون مورد نظر از کم به زیاد یا برعکس مرتب کنید
حسینی 98/6/21

سلام
اگر دقت کنید تو هر ردیف امکان داره چند تا منشن باشه ، اگر در هر ردیف یک منشن بود اینکار شما جواب میداد .
من دیدم شما دوست عزیز چند جای دیگه جواب سایر عزیزان رو دادید ولی دقت کافی رو ندارید و بعضا جوابهاتون ممکن برای افراد مشکل ساز بشه چون بعضی مواقع ظاهر جواب درسته و فکر میکنن جواب صحیح گرفتن و در کارشون استفاده میکنن ، پس در صورت پاسخگویی لطفا رو جوابهاتون وقت بزارید .
تشکر

[armanoskouei]

سلام جناب ، خیلی ممنون واقعا کارمو راه انداخت .
حالا بعد از چند قرئه کشی یک مشکل دیگه برخوردیم .
اینکه افراد که تگ انجام میدن افراد تکراری روتگ میکنن و این باعث شده یه سری افراد الکی برنده بشن
افراد تکراری و افراد معروف که برای ما هیچ سودی ندارن رو تگ میکنن
یا مثلا ریپلای میکنن کامنت های دیگه رو و یک دونه حساب میشه براشون .
حالا ریپلای مهم نیست اما افراد معروف و تکراری خیلی برامون مشکل ساز شده و برنده های الکی میدیم .
راهی هست بتونیم این مشکل رو حل کنیم و افراد تکراری رو پاک کنیم ؟

بازهم ممنون بابت پاسخ قبلیتون .

[misammisam]

سلام جناب ، خیلی ممنون واقعا کارمو راه انداخت .
حالا بعد از چند قرئه کشی یک مشکل دیگه برخوردیم .
اینکه افراد که تگ انجام میدن افراد تکراری روتگ میکنن و این باعث شده یه سری افراد الکی برنده بشن
افراد تکراری و افراد معروف که برای ما هیچ سودی ندارن رو تگ میکنن
یا مثلا ریپلای میکنن کامنت های دیگه رو و یک دونه حساب میشه براشون .
حالا ریپلای مهم نیست اما افراد معروف و تکراری خیلی برامون مشکل ساز شده و برنده های الکی میدیم .
راهی هست بتونیم این مشکل رو حل کنیم و افراد تکراری رو پاک کنیم ؟

بازهم ممنون بابت پاسخ قبلیتون .

سلام
قابل نداشت ، نمونه بزارید شاید شد .

[armanoskouei]

سلام مجدد .
800 نفرو تگ کردن ) یعنی اصلا امکان نداره حتی یک مورد هم توش تکراری نباشه .
+ اگر امکانش باشه میخوایم افرادی که بلوتیک دارن یا پیج های معروف دنیا هستن رو نتونن تگ کنن یعنی شمارش نشه ... لیستش حدودا 1000 تا هست که دسترسی دارم بهش
تقدیم شما

- - - Updated - - -

♥♥♥

[M_ExceL]

سلام مجدد .
800 نفرو تگ کردن ) یعنی اصلا امکان نداره حتی یک مورد هم توش تکراری نباشه .
+ اگر امکانش باشه میخوایم افرادی که بلوتیک دارن یا پیج های معروف دنیا هستن رو نتونن تگ کنن یعنی شمارش نشه ... لیستش حدودا 1000 تا هست که دسترسی دارم بهش
تقدیم شما

- - - Updated - - -

♥♥♥

سلام،
فایل پیوست رو چک کنید.
ابتدا ماکرو را فعال کنید سپس روی باتن 1 در شیت 2 کلیک کنید.

Sub M_excel()

Dim nmarr, nmarrn As Variant
Dim rcarr() As Variant
Dim rcarrn() As Variant
Dim nmcl As New Collection
Dim nmclr As New Collection
Dim rng As Range
Dim i, itm, itma, lstr As Long
Dim f, b  As Long
Dim ctext As String

Sheets(2).Range("a:d").ClearContents
lstr = Sheets(1).Cells(Rows.Count, 1).End(3).Row
Set rng = Sheets(1).Range("a2:b" & lstr): nmarr = rng.Value

Application.ScreenUpdating = False

    For itma = 1 To lstr - 1: On Error Resume Next
        nmcl.Add nmarr(itma, 1), CStr(nmarr(itma, 1))
    Next: ReDim rcarr(1 To nmcl.Count, 1 To 4) As Variant

        For itm = 1 To nmcl.Count
            For i = 1 To lstr - 1
                If nmcl(itm) = nmarr(i, 1) Then
                    rcarr(itm, 1) = itm: rcarr(itm, 2) = nmcl(itm)
                    rcarr(itm, 3) = rcarr(itm, 3) & " " & nmarr(i, 2)
                End If
            Next
        Next

    For i = 1 To nmcl.Count: Set nmclr = Nothing
        nmarrn = Split(rcarr(i, 3), ChrW(64))
            For f = LBound(nmarrn) To UBound(nmarrn)
                On Error Resume Next
                nmclr.Add nmarrn(f), CStr(nmarrn(f))
            Next
            
        ReDim rcarrn(1 To nmclr.Count) As Variant
        For b = 1 To nmclr.Count: rcarrn(b) = nmclr(b): Next
        ctext = Join(rcarrn, ","): rcarr(i, 3) = ctext
        rcarr(i, 3) = Mid(ctext, 3, Len(ctext) - 1)
        rcarr(i, 4) = nmclr.Count - 1
    Next

    Sheets(2).Range("a1:d" & nmcl.Count).Value = rcarr
    
    Application.ScreenUpdating = True
    
End Sub