الخطيب بيبوو قام بنشر سبتمبر 28, 2022 مشاركة قام بنشر سبتمبر 28, 2022 السلام عليكم ورحمة الله وبركاته ..اريد فصل الارقام من بعضها كلا فى خلية منفصلة بالعمود K كما بالمثال Book2.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر سبتمبر 28, 2022 أفضل إجابة مشاركة قام بنشر سبتمبر 28, 2022 السلام عليكم و رحمة الله جرب هذا الكود Sub ConTxtNum() Dim ws As Worksheet, C As Range Dim i As Long, j As Long Dim Arr, Tmp, Txt As String Set ws = Sheets("Sheet1") Application.ScreenUpdating = False For Each C In ws.Range("K6:K" & ws.Range("K" & Rows.Count).End(3).Row) For i = 1 To Len(C) Txt = Mid(C, i, 1) If Txt Like "[0-9]" Or Txt = "0" Then Arr = Arr & Txt Else Arr = Arr & " " End If Next Arr = Application.WorksheetFunction.Trim(Arr) Tmp = Split(Arr, " ") For j = 0 To UBound(Tmp) C.Offset(0, j + 2) = Tmp(j) Arr = "" Next Next Application.ScreenUpdating = True End Sub 3 1 رابط هذا التعليق شارك More sharing options...
الخطيب بيبوو قام بنشر سبتمبر 29, 2022 الكاتب مشاركة قام بنشر سبتمبر 29, 2022 يسلم كل رجال اسوان المحترمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها