السلام عليكم
أخي العزيز
جرب المرفق
مجلد به ملف اكسل وزر
وفي نفس المجلد به ملف تيكست إسمه 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