هل يمكن دمج عمود في عدة ملفات في عمود واحد؟

[رحااال]

السلام عليكم ورحمة الله وبركاته

أسعد الله مساؤكم جميعاً بكل خير..

أحبابي الغالين .. عندي عدة ملفات إكسل وفي كل ملف اكسل عمود فيه ارقام جوالات المطلوب وأرغب في دمجها في عمود واحد (عمود الأرقام فقط) علماً أنه أحانا الرقم يكون في عمود آخر لكن المهم القاعدة أو الدالة التي نطبق عليها وأقوم بتطبيقها على ما أحتاج

مرفق لكم الملفات للتطبيق

وشكراً

 

المطلوب دمج عمود الأرقام في كل ملف في عمود واحد بملف واحد.zip

[أ / محمد صالح]

أخي الكريم مطلوبك سهل بإذن الله

لكن يوجد بعض الخطوات قبل تنفيذه وهي:

إعادة حفظ الملفات باسم (ولو بنفس الاسم) حيث أنها تظهر خطأ عند فتحها

ضبط مكان الارقام في العمود K حيث أنها في معظم الملفات في العمود K

بعدها اصنع ملفا وضع به هذا الكود

Sub GetDataFromFiles()
Dim oFSO As Object, oFolder As Object, oFile As Object
Dim lr As Long, iCnt As Long, iTotalRows As Long
Dim src As Workbook, dst As Workbook
Set dst = ActiveWorkbook
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(ActiveWorkbook.Path)
Application.ScreenUpdating = False
For Each oFile In oFolder.Files
If oFile.Name <> ActiveWorkbook.Name And Left(oFile.Name, 1) <> "~" Then
    Set src = Workbooks.Open(oFile.Path, True, True)
    iTotalRows = src.Worksheets(1).Cells(Rows.Count, "K").End(xlUp).Row
    For iCnt = 1 To iTotalRows
        lr = dst.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row
        dst.Sheets(1).Range("A" & lr + 1).Value = src.Sheets(1).Range("K" & iCnt).Value
    Next iCnt
    src.Close False
End If
Next oFile
Set oFSO = Nothing: Set oFolder = Nothing: Set oFile = Nothing
Application.ScreenUpdating = True
MsgBox "Done by mr-mas.com"
End Sub

ثم قم بتنفيذ هذا الإجراء

سيتم جلب بيانات العمود K من الملفات في العمود A في الملف الجديد الذي به الكود

بالتوفيق

[رحااال]

أهلاً وسهلاً بك وجزاك الله خيراً..

بالنسبة لحفظ الملفات واحد تلو الآخر فيجري عمله الآن والأمر ياخذ وقت والله المستعان وصلت الملف 35 وبعد الانتهاء ان شاءالله والتطبيق سأعود بالنتيجة 

تم الانتهاء ولله الحمد من الحفظ،، هل يمكن بدل من الدخول في كل ملف لنقل الارقام الى العمود k

أن يتم تطبيق الكود مرتين مرة على k ومرة على عمود آخر 

وذلك بتغيير الحرف k في الكود الى حرف العمود الآخر

وشكرا

تم حل المشكلة ولله الحمد، وشكراً لك وبارك الله فيك

وتم تطبيقها كلها على نفس الملف والعمود أي أن النتيجة لعدة أعمدة على نفس العمود وهذا ممتاز

شكراً