جدا کردن عدد از متن در اکسل با یک کلیک

- بانک کد VBA در اکسل
- آموزش رایگان اکسل
آخرین بروزرسانی: 28 خرداد 1402

جدا کردن عدد از متن در اکسل با یک کلیک روی این آموزش رایگان اکسل برای شما دوستان عزیز یک روش فوق العاده عالی برای جداسازی متن از عدد در اکسل به صورت کامل آموزش میدیم

ما توی این آموزش رایگان اکسل برای شما با استفاده از کد نویسی BVA نحوه جداسازی اعداد از متن در اکسل آموزش می دهیم که میتونیم به راحتی فقط با یک کلیک متن های خود را از اعداد جدا کنید

خوب برای این منظور در ادامه همین مطلب براتون یک چند خط کد vba قرار دادم که میتونید اونا به صورت کامل کپی کنید و وارد فایل اکسل کنید

جدا کردن عدد از متن در اکسل

نکات حرفه‌ای برای جدا کردن عدد از متن در اکسل

بعد از اینکه وارد فایل اکسل شدید الان با کلیدهای میانبر Alt + F11

وارد محیط کد نویسی vba اکسل شوید

یک ماکرو ایجاد کنید بعد از اینکه ماکرو ایجاد شد کد هایی که کپی کردید از داخل سایت را به صورت کامل وارد وارد ماکرو کنید

الان هیچ کاری دیگه نیاز نیست انجام بدهید فقط شما نیاز هست داخل کد ها که نوشته شد را مشاهده کنید که کدام قسمت تغییر کند برای جداسازی

Sub SeparateNames()
'https://academyruhollah.com/
'============= آکادمي روح الله مرجع بانک کد BVA اکسل =======
    Dim rng As Range
    Dim cell As Range
    Dim text As String
    Dim parts() As String
    Dim name As String
    Dim family As String
    Dim mobile As String
<div style="clear:both; margin-top:0em; margin-bottom:1em;"><a href="https://academyruhollah.com/%d9%81%d8%b9%d8%a7%d9%84-%d8%b3%d8%a7%d8%b2%db%8c-%d8%a2%d9%81%db%8c%d8%b3-2021-%d8%af%d8%a7%d9%86%d9%84%d9%88%d8%af-%da%a9%d8%b1%da%a9-%d8%a2%d9%81%db%8c%d8%b3-2021/" target="_blank" rel="nofollow" class="IRPP_ruby"><!-- INLINE RELATED POSTS 1/3 //--><style> .IRPP_ruby , .IRPP_ruby .postImageUrl , .IRPP_ruby .centered-text-area { height: 130px; position: relative; } .IRPP_ruby , .IRPP_ruby:hover , .IRPP_ruby:visited , .IRPP_ruby:active { border:0!important; } .IRPP_ruby .clearfix:after { content: ""; display: table; clear: both; } .IRPP_ruby { display: block; transition: background-color 250ms; webkit-transition: background-color 250ms; width: 100%; opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #8E44AD; box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -moz-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -o-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); -webkit-box-shadow: 0 1px 2px rgba(0, 0, 0, 0.17); } .IRPP_ruby:active , .IRPP_ruby:hover { opacity: 1; transition: opacity 250ms; webkit-transition: opacity 250ms; background-color: #9B59B6; } .IRPP_ruby .postImageUrl { background-position: center; background-size: cover; float: right; margin: 0; padding: 0; width: 31.59%; } .IRPP_ruby .centered-text-area { float: left; width: 65.65%; padding:0; margin:0; } .IRPP_ruby .centered-text { display: table; height: 130px; right: 0; top: 0; padding:0; margin:0;float: left;width: 100%; } .IRPP_ruby .IRPP_ruby-content { display: table-cell; margin: 0; padding: 0 0px 0 74px; position: relative; vertical-align: middle; width: 100%; } .IRPP_ruby .ctaText { border-bottom: 0 solid #fff; color: #000000; font-size: 13px; font-weight: bold; margin: 0; padding: 0; } .IRPP_ruby .postTitle { color: #ECF0F1; font-size: 16px; font-weight: 600; margin: 0; padding: 0; } .IRPP_ruby .ctaButton { background: url(https://academyruhollah.com/wp-content/plugins/intelly-related-posts-pro/assets/images/next-arrow.png)no-repeat; display: inline-block; height: 130px; width: 54px; } .IRPP_ruby .ctaButton { background-color: inherit; margin-left: 10px; position: absolute; left: 0; top: 0; } .IRPP_ruby:after { content: ""; display: block; clear: both; } </style><div data-bg="https://academyruhollah.com/wp-content/uploads/2022/12/فعال-سازی-آفیس-2019-تا-2021.jpg" class="postImageUrl rocket-lazyload" style=""></div><div class="centered-text-area"><div class="centered-text"><div class="IRPP_ruby-content"><div class="ctaText">پیش نهاد آکادمی روح الله برای شما :</div><div style="clear:both"></div><div class="postTitle">فعال سازی آفیس 2021 +دانلود کرک آفیس 2021</div></div></div><div class="ctaButton"></div></div></a></div>    
    ' تعيين محدوده ستون متن
    Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    
    For Each cell In rng
        text = cell.Value
        parts = Split(text, " - ") ' استفاده از نويزلاتور "-"
        
        ' جداسازي بخش‌هاي متن و قرار دادن در ستون‌هاي جداگانه
        If UBound(parts) >= 1 Then
            name = Trim(parts(0)) ' تراکم اضافي را برداشت کنيد
            family = Trim(parts(1)) ' تراکم اضافي را برداشت کنيد
            
            ' اگر تعداد بيشتري بخش وجود دارد، آنها را به ستون موبايل اضافه کنيد
            If UBound(parts) >= 2 Then
                mobile = Trim(parts(2)) ' تراکم اضافي را برداشت کنيد
                cell.Offset(0, 3).Value = mobile ' شماره موبايل در ستون D
            End If
            
            cell.Offset(0, 1).Value = name ' نام در ستون B
            cell.Offset(0, 2).Value = family ' نام خانوادگي در ستون C
        End If
    Next cell
End Sub

Sub SeparateNames()

'https://academyruhollah.com/

'============= آکادمي روح الله مرجع بانک کد BVA اکسل =======

Dim rng As Range

Dim cell As Range

Dim text As String

Dim parts() As String

Dim name As String

Dim family As String

Dim mobile As String

' تعيين محدوده ستون متن

Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

For Each cell In rng

text = cell.Value

parts = Split(text, " - ") ' استفاده از نويزلاتور "-"

' جداسازي بخش‌هاي متن و قرار دادن در ستون‌هاي جداگانه

If UBound(parts) >= 1 Then

name = Trim(parts(0)) ' تراکم اضافي را برداشت کنيد

family = Trim(parts(1)) ' تراکم اضافي را برداشت کنيد

' اگر تعداد بيشتري بخش وجود دارد، آنها را به ستون موبايل اضافه کنيد

If UBound(parts) >= 2 Then

mobile = Trim(parts(2)) ' تراکم اضافي را برداشت کنيد

cell.Offset(0, 3).Value = mobile ' شماره موبايل در ستون D

End If

cell.Offset(, 1).Value = name ' نام در ستون B

cell.Offset(0, 2).Value = family ' نام خانوادگي در ستون C

End If

Next cell

End Sub

بهترین روش‌ها برای جدا کردن اعداد از متن در اکسل

راه‌های ساده برای استخراج عدد از متن در اکسل

به طور مثال داخل این کد ما داخل ستون A نام نام خانوادگی شماره همراه را داریم

پیش نهاد آکادمی روح الله برای شما :

حذف سطر خالی جدول اکسل با کد vba

الان میخواهیم نام نام خانوادگی در ستون B قرار بگیرد و شماره موبایل در ستون C

اگر اطلاعاتی که شما داخل فایل اکسل دارید مشابه همین فایل هست میتونید ماکرو را اجرا کنید در غیر این صورت آدرس ستون ها را داخل کد نویسی که توزیع دادیم را به صورت کامل تغییر بدهید و ماکرو را اجرا کنید

بعد از اجرا کردن ماکرو همانطور که مشاهده می کنید جداسازی متن و عدد در اکسل به صورت کامل عالی انجام شد

بهترین روش‌ها برای جدا کردن اعداد از متن در اکسل

دوستان گرامی این هم بود از این آموزش رایگان اکسل از دسته بندی بانک کد اکسل در سایت آکادمی روح الله

امیدوارم که برای تو مورد استفاده قرار گرفته باشد هر گونه نظر یا پیشنهادی بود در قسمت نظرات همین صفحه برام بنویسید موفق و پیروز باشید

میانگین رتبه 5/5 تعداد رای : 2

روح الله وکیل زاده

نکات حرفه‌ای برای جدا کردن عدد از متن در اکسل

راه‌های ساده برای استخراج عدد از متن در اکسل

بهترین روش‌ها برای جدا کردن اعداد از متن در اکسل

نظر یا سوال شما در این مورد چیست؟ انصراف