كيف ترتيب أرقام أكثر من مليون

[البراق]

 

 

السلام عليكم

 

اذا كانت الارقام أكثر من مليون على ملف تكسيت بهذا الشكل

,966556525996,966556591532,966555560460,966556560460,

 

وأبغى أنقلهم لملف اكسيل كل رقم في سطر

 

كيف الطريقة وياليت الشرح يكون على اوفيس عربي 2007

 

علما أني جربت طريقة بالوورد جيدة لكنها تأخذ وقت طويل ويعلق الجهاز

 

وشكرا

[طارق محمود]

السلام عليكم

أخي العزيز

جرب المرفق

مجلد به ملف اكسل وزر

وفي نفس المجلد به ملف تيكست إسمه alburag.txt وبه أكثر من 200,000 رقم

 

والكود بالإكسل بسيط يمكنك تعديله

 

Sub nnn()
On Error Resume Next
pt = ActiveWorkbook.Path
    myFile = pt & "\alburag.txt"
    
    Open myFile For Input As #1
        Do While Not EOF(1)
            Input #1, x
            i = i + 1
            Cells(i, 2) = "'" & x
        Loop
    Close #1
End Sub

أولا فك ضغط الملفين في مجلد واحد

ثم افتح الإكسل وجرب تضغط الزر

Al_Burg.rar

[البراق]

أخي الكريم شكرا لك طلعت لي رسالة

يتعذر على العثور على الماكرو

مرفق صورة

[البراق]

بانتظار ردكم الكريم

[احمد عبد الناصر]

السلام عليكم

 

اعتقد المشكلة عندك في تمكين الماكرو 

 

شاهد هذا 

http://www.youtube.com/watch?v=ky98K-iwlvE