hanafymahmood قام بنشر يناير 20, 2022 مشاركة قام بنشر يناير 20, 2022 السلام عليكم ورحمة الله وبركاته فى المثال المرفق اريد تقسيم بيانات الخلية الرقمية إلى اثنين وكذلك الخلية النصية مع خالص الشكر 1.xlsx رابط هذا التعليق شارك More sharing options...
أفضل إجابة lionheart قام بنشر يناير 20, 2022 أفضل إجابة مشاركة قام بنشر يناير 20, 2022 Sub Test() Dim x, r As Long, i As Integer, ii As Integer Application.ScreenUpdating = False For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row x = Split(Application.Trim(Cells(r, 2).Value)) ii = 0 For i = LBound(x) To UBound(x) If x(i) <> "" Then Cells(r, 3 + ii).Value = Val(x(i)): ii = ii + 1 Next i x = Split(Cells(r, 5).Value, Space(2)) ii = 0 For i = LBound(x) To UBound(x) If x(i) <> "" Then Cells(r, 6 + ii).Value = Trim(x(i)): ii = ii + 1 Next i Next r Application.ScreenUpdating = True End Sub 2 1 رابط هذا التعليق شارك More sharing options...
hanafymahmood قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 جزاكم الله خيرا هل من تطبيق على المثال 1 رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر يناير 21, 2022 مشاركة قام بنشر يناير 21, 2022 Copy the code from my post. Go to excel worksheet and press Alt + F11 to login VBE editor then from Insert menu select Module and paste the code Now back to the worksheet and press Alt + F8 and select the macro called Test. That's all 1 1 رابط هذا التعليق شارك More sharing options...
hanafymahmood قام بنشر يناير 21, 2022 الكاتب مشاركة قام بنشر يناير 21, 2022 جزاكم الله خيرا تم تنفيذ الخطوات 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.