حذف کاراکترهای عددی در اکسل

با سلام خدمت کاربران عزیز آی تی سواد

شما یک برگه حاوی کاراکترهای زیادی مانند James987denدارید، داده ها حاوی هر دو کاراکتر حروف و کاراکتر عددی هستند، و شما می خواهید برای همه داده های این چنینی کاراکترهای حروف را نگه دارید و کاراکترهای های عددی را حذف کنید. مانند، تبدیل James987den به Jamesden. آیا راهی سریع برای حذف کاراکترهای عددی در اکسل وجود دارد؟

حذف کاراکترهای عددی در اکسل با کد VBA:

اگر با کد VBA آشنا هستید می توانید از این روش بر طبق مراحل زیر استفاده کنید:
۱- برای فعال کردن پنجره Microsoft Visual Basic for applications ، بر روی Developer> Visual Basic کلیک کنید یا از کلید های میانبر (ALT + F11)در اکسل استفاده کنید و روی Insert> Module کلیک کنید.
۲- کد زیر را در Module وارد کنید.

Sub RemoveNum()
'Updateby20131129
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "itsavad.ir"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[0-9.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

Sub RemoveNum()

'Updateby20131129

Dim Rng As Range

Dim WorkRng As Range

On Error Resume Next

xTitleId = "itsavad.ir"

Set WorkRng = Application.Selection

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

For Each Rng In WorkRng

xOut = ""

For i = 1 To Len(Rng.Value)

xTemp = Mid(Rng.Value, i, 1)

If xTemp Like "[0-9.]" Then

xStr = ""

Else

xStr = xTemp

End If

xOut = xOut & xStr

Next i

Rng.Value = xOut

End Sub

۳- سپس روی دکمه برای اعمال کد کلیک کنید. یک کادر محاوره ای بر روی صفحه نمایش ظاهر می شود، شما می توانید یک محدوده را برای حذف تمام کاراکتر های عددی انتخاب کنید. تصویر را ببینید:

۴- با کلیک بر روی OK همه کاراکترهای عددی پاک خواهند شد.

ترجمه شده از سایت www.extendoffice.com

ممنون از همراهی شما کاربران عزیز آی تی سواد

اشتراک گذاری

بیشتر

با سلام خدمت کاربران عزیز آی تی سواد

حذف کاراکترهای عددی در اکسل با کد VBA:

ممنون از همراهی شما کاربران عزیز آی تی سواد

دیدگاهتان را بنویسید لغو پاسخ