نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه می توان اولین حرف هر کلمه از سلول را استخراج کرد؟

فرض کنید شما لیستی از نامهای کشور را در صفحه خود داشته باشید و اکنون باید اولین حرف هر کلمه در سلول را به عنوان تصاویر زیر نشان داده شده بدست آورید. به طور معمول هیچ ویژگی مستقیم برای انتخاب اول حرف هر کلمه در اکسل وجود ندارد. اما، در اینجا، می توانم در مورد یک راه مفید برای حل این کار صحبت کنم.

doc-extract-first-letter1

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


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


در اکسل، شما می توانید یک تابع تعریف شده توسط کاربر برای استخراج اولین حرف هر کلمه در یک سلول. لطفا این کار را انجام دهید:

1. پایین نگه دارید ALT + F11 کلید برای باز کردن پنجره Microsoft Visual Basic برای برنامه ها.

2است. کلیک کنید قرار دادن > ماژول ها، و کد زیر را در آن قرار دهید پنجره ماژول. </ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. سپس این کد را ذخیره و بستنی کنید، برگه برگردید و این فرمول را وارد کنید = GetFirstLetters (A2) (A2 نشان دهنده سلولي است که شما مي خواهيد اولين حرف آن را استخراج کنيد، مي توانيد آن را همانطور که مي خواستيد تغيير دهيد) به يک سلول خالي. تصویر را ببینید:

doc-extract-first-letter1

4. و سپس فشار دهید وارد کلید، و سلول B2 را انتخاب کنید، سپس آن را به سلول هایی که می خواهید این فرمول را اعمال کنید بکشید. و تمام حروف اول از مجموعه ای از کلمات استخراج شده است، تصویر را ببینید:

doc-extract-first-letter1


مقاله مرتبط:

نحوه استخراج کلمه اول / آخرین / n از رشته متن در اکسل؟



ابزارهای توصیه شده برای بهره وری

دفتر تب

gold star1 زبانه های مفید برای اکسل و دیگر نرم افزار Office، درست مانند Chrome، Firefox و اینترنت اکسپلورر جدید.

Kutools برای اکسل

gold star1 حیرت آور! بهره وری خود را در دقیقه 5 افزایش دهید. به مهارت های ویژه نیاز نداشته باشید، صرفه جویی در هر ساعت دو ساعت!

gold star1 ویژگی های جدید 300 برای اکسل، اکسل بسیار آسان و قدرتمند:

  • ادغام سلول / ردیف / ستون بدون از دست دادن داده ها.
  • ترکیب و ادغام چندین ورق و کارنامه.
  • مقایسه مقادیر، روندهای چندگانه کپی، تبدیل متن به تاریخ، تبدیل واحد و ارز.
  • شمارش توسط رنگ ها، کلیدهای پیمایش، مرتب سازی پیشرفته و سوپر فیلتر،
  • بیشتر انتخاب / قرار دادن / حذف / متن / فرمت / لینک / نظر / کتاب کار / ابزار برگه ها ...

شات Screen Kutools برای اکسل

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Oleg · 10 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks