4 روش کاربردی برای حذف صفر از ابتدای اعداد در اکسل

به توکل نام اعظمت بسم الله الرحمن الرحیم. در این پست آموزشی 8 روش کاربردی برای حذف صفر از ابتدای اعداد در اکسل را خواهید آموخت.

روش اول تبدیل Text به Number

با فرض شماره تماس هایی که در ادامه آورده شده است:

ابتدا محدوده خود را انتخاب و سپس همانند تصویر زیر برروی Convert to Number کلیک نمایید:

خروجی نهایی شما بصورت زیر خواهد بود:

همانطور که در تصویر فوق نیز مشاهده می کنید، صفر ابتدای شماره های تماس براحتی حذف گردید.

روش دوم استفاده از تابع VALUE()

در این روش از تابع VALUE() همانند تصویر زیر استفاده خواهیم نمود:

همانطور که در تصویر فوق نیز مشاهده می کنید، با استفاده از تابع VALUE نیز حذف صفر ابتدای اعداد امکان پذیر است.

روش سوم ضرب در عدد 1

در این روش تنها کافی است شماره تماس های خود را در یک عدد 1 همانند تصویر زیر ضرب کنید:

همچنین می توانید عدد 1 را داخل یک سلول درج نمایید و سپس آن را همانند تصویر زیر کپی کنید:

سپس محدوده اعداد را همانند تصویر زیر انتخاب کنید:

حال کلید ترکیبی CTRL + ALT + V کیبورد را فشار دهید تا با پنجره Paste Special همانند تصویر زیر روبرو شوید:

تیک Multiply را فعال و روی OK کلیک کنید، خروجی نهایی شما بصورت زیر خواهد بود:

همانطور که در تصویر فوق نیز مشاهده می کنید، در این روش نیز صفر ابتدای اعداد براحتی حذف گردید.

روش چهارم استفاده از کدهای وی بی ای اکسل

در روش سوم تنها کافی است با ورود به محیط وی بی ای (کلیدمیانبر ALT + F11) یک ماژول همانند تصویر زیر ایجاد کنید:

سپس ماکروی زیر را به داخل ماژول منتقل کنید:

Sub Delete_Leading_Zero()
'Code by ExcelDemy.com
Dim Delete_Range As Range
Dim Work_Range As Range
Dim xTitleId As String
On Error Resume Next
xTitleId = "ExcelDemy Delete Leading Zeros"
Set Work_Range = Application.Selection
Set Work_Range = Application.InputBox("Range", xTitleId, Work_Range.Address, Type:=8)
Work_Range.NumberFormat = "General"
Work_Range.Value = Work_Range.Value
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub Delete_Leading_Zero()

'Code by ExcelDemy.com

Dim Delete_Range As Range

Dim Work_Range As Range

Dim xTitleId As String

On Error Resume Next

xTitleId = "ExcelDemy Delete Leading Zeros"

Set Work_Range = Application.Selection

Set Work_Range = Application.InputBox("Range", xTitleId, Work_Range.Address, Type:=8)

Work_Range.NumberFormat = "General"

Work_Range.Value = Work_Range.Value

End Sub

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

حال همانند تصویر زیر از ماکروی فوق استفاده نمایید:

به منظور درک بهتر شما عزیزان یک ویدیو آموزشی کوتاه در خصوص کاربردی ترین روش های این بخش آماده کردیم که می توانید آن را در ادامه مشاهده کنید:

در پایان امیدواریم پست آموزشی 4 روش کاربردی برای حذف صفر از ابتدای اعداد در اکسل مورد رضایت و استفاده شما عزیزان قرار گرفته باشد لذا در صورت وجود هرگونه انتقال و پیشنهاد می توانید آن را در قسمت نظرات برای ما ارسال نمایید.