วิธีแบ่งหรือแยกตัวเลขออกเป็นแต่ละหลักใน Excel

สมมติว่าคุณต้องแบ่งหรือแยกหมายเลขออกเป็นแต่ละหลักตามภาพด้านล่างนี้คุณจะทำอย่างไรเพื่อให้บรรลุ บทความนี้จะนำเสนอสองวิธีสำหรับคุณ

แบ่งหรือแยกตัวเลขออกเป็นแต่ละหลักด้วยสูตร
แบ่งหรือแบ่งตัวเลขออกเป็นแต่ละหลักด้วย Kutools for Excel

แบ่งหรือแยกตัวเลขออกเป็นแต่ละหลักด้วยสูตร

ส่วนนี้จะแสดงสูตรเพื่อแบ่งเซลล์ตัวเลขที่เลือกออกเป็นตัวเลขแต่ละตัวใน Excel

1. เลือกเซลล์ว่าง (พูดว่าเซลล์ C1) เพื่อค้นหาตัวเลขแบ่งตัวแรกในเซลล์ A1 จากนั้นป้อนสูตร = MID ($ A1, COLUMN () - (คอลัมน์ ($ C1) - 1), 1) ลงในแถบสูตรแล้วกด เข้าสู่ กุญแจ

หมายเหตุ: ในสูตร A1 คือเซลล์ที่มีตัวเลขที่คุณต้องแบ่งเป็นตัวเลขและ C1 คือเซลล์สำหรับค้นหาหลักแยกแรก โปรดเปลี่ยนตามที่คุณต้องการ

2. เลือกเซลล์ C1 ต่อไปจากนั้นลาก Fill Handle ไปยังเซลล์ด้านขวาจนกว่าตัวเลขทั้งหมดของเซลล์ A1 จะถูกแยกออก

3. เลือกเซลล์หลักที่แยกเหล่านี้ไว้และลาก Fill Handle ลงไปที่เซลล์จนกว่าตัวเลขทั้งหมดจะแบ่งออกเป็นตัวเลขที่แยกจากกัน ดูภาพหน้าจอ:

แบ่งหรือแบ่งตัวเลขออกเป็นแต่ละหลักด้วย Kutools for Excel

พื้นที่ แยกเซลล์ ประโยชน์ของ Kutools for Excel ช่วยให้คุณสามารถแบ่งเซลล์ตัวเลขที่เลือกทั้งหมดออกเป็นตัวเลขทีละหลักได้อย่างง่ายดาย กรุณาดำเนินการดังนี้

ก่อนที่จะใช้ Kutools for Excelโปรด ดาวน์โหลดและติดตั้งในตอนแรก.

1. เลือกเซลล์ที่มีหมายเลขที่คุณต้องการแยกเป็นหลักจากนั้นคลิก Kutools > ผสานและแยก > แยกเซลล์. ดูภาพหน้าจอ:

2 ใน แยกเซลล์ โปรดเลือก แยกเป็นคอลัมน์ ตัวเลือกใน ชนิดภาพเขียน และในส่วนระบุตัวคั่นให้เลือกระบุความกว้างและป้อนหมายเลข 1 ลงในกล่องข้อความ คลิก OK ปุ่ม

3. ในป๊อปอัพถัดไป แยกเซลล์ โปรดระบุเซลล์ว่างสำหรับค้นหาหลักแยกแรกจากนั้นคลิกที่ OK ปุ่ม

หลังจากคลิก OK ตัวเลขทั้งหมดในเซลล์ที่เลือกจะถูกแบ่งออกเป็นตัวเลขที่แยกจากกันทันทีตามภาพด้านล่างที่แสดง

หากคุณต้องการทดลองใช้ฟรี (30วัน) ของโปรแกรมอรรถประโยชน์นี้ กรุณาคลิกเพื่อดาวน์โหลดแล้วไปใช้การดำเนินการตามขั้นตอนข้างต้น

แบ่งหรือแบ่งตัวเลขออกเป็นแต่ละหลักด้วย Kutools for Excel

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools for Excel แก้ปัญหาส่วนใหญ่ของคุณ และเพิ่มประสิทธิภาพการทำงานของคุณได้ถึง 80%

นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...

ความคิดเห็น (12)

ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!

เรดดี้

ประมาณ 6 ปีที่แล้ว

#17395

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี แนะนำสูตรสำหรับตัวเลขหลายหลักรวมกันเป็น exp หลักเดียว: 12345 (ภายในหนึ่งเซลล์) คำนวณอัตโนมัติเป็น 1+2+3+4+5 = 6

ตอบ

Priya

ประมาณ 5 ปีที่แล้ว

#23305

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ตัวเลือกที่ชัดเจน
'ฟังก์ชั่นหลัก
ฟังก์ชัน NumberToText (ByVal MyNumber)
นับติ่มซำ
ผลติ่มซำ
ติ่มซำความยาว
นับ = 1
ความยาว = เลน (MyNumber) + 1
ทำในขณะที่นับ < NLength
ผลลัพธ์ = ผลลัพธ์ & GetDigit(Mid(MyNumber, Count, Count)) & Space(1)
นับ = นับ + 1
ห่วง
NumberToText = ผลลัพธ์
ฟังก์ชั่นเอนด์

ฟังก์ชัน GetDigit(หลัก)
เลือกกรณี (หลัก)
กรณีที่ 1: GetDigit = "หนึ่ง"
กรณีที่ 2: GetDigit = "สอง"
กรณีที่ 3: GetDigit = "สาม"
กรณีที่ 4: GetDigit = "สี่"
กรณีที่ 5: GetDigit = "ห้า"
กรณีที่ 6: GetDigit = "หก"
กรณีที่ 7: GetDigit = "เจ็ด"
กรณีที่ 8: GetDigit = "แปด"
กรณีที่ 9: GetDigit = "เก้า"
กรณีอื่น: GetDigit = "ศูนย์"
สิ้นสุดการเลือก
ฟังก์ชั่นเอนด์

ฉันกำลังพยายามแปลงตัวเลขเป็นคำเพื่อเตรียมวัตถุประสงค์ของแผ่นมาร์ค เช่น 63 => หกสามแต่ใช้ไม่ได้กับตัวเลข 3 หลัก Eg:798 =>Seven Zero Eight ERROR กรุณาช่วย

ตอบ

คริสตัล Priya

ประมาณ 5 ปีที่แล้ว

#23306

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

เรียน คุณปรียา
ฟังก์ชันที่ผู้ใช้กำหนดต่อไปนี้สามารถช่วยคุณได้

ฟังก์ชัน NumberToText(ByVal xNum)
หรี่ฉันนาน
Dim xTemp ตราบเท่าที่
Dim xStr เป็นสตริง
ผลการหรี่เป็นสตริง
สำหรับฉัน = 1 ถึง Len(xNum)
xTemp = กลาง (xNum, I, 1)
เลือกกรณี xTemp
กรณีที่ 1: xStr = "หนึ่ง"
กรณีที่ 2: xStr = "สอง"
กรณีที่ 3: xStr = "สาม"
กรณีที่ 4: xStr = "สี่"
กรณีที่ 5: xStr = "ห้า"
กรณีที่ 6: xStr = "หก"
กรณีที่ 7: xStr = "เซเว่น"
กรณีที่ 8: xStr = "แปด"
กรณีที่ 9: xStr = "เก้า"
กรณีอื่น: xStr = "ศูนย์"
สิ้นสุดการเลือก
ผลลัพธ์ = ผลลัพธ์ & xStr & Space(1)
ถัดไป
NumberToText = ผลลัพธ์
ฟังก์ชั่นเอนด์

ตอบ

รายงาน

โยเกช กุมาร

ประมาณ 4 ปีที่แล้ว

#25630

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ถ้าข้อมูลอยู่ในรูปแบบด้านล่างจะทำอย่างไร?
DDD 1 2 3 4 5 6 7 8 9 10 11 12 13 14
1,2,3,5,15,12,11
12,10,13,11,5,2,4
1,5,7,4

ต้องการตัวเลขจากเซลล์ที่ 1 ถึงด้านล่างหมายเลขหัวเรื่อง (เช่น ถ้าเรามี 1,5,11 ให้ใส่คำตอบลงในเซลล์ที่ต่ำกว่า 1,5,11)

ตอบ

Jagan

ประมาณ 4 ปีที่แล้ว

#28094

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

ข้อความสุดท้าย: BEARING, BALL; ประเภท: ร่องลึก วัสดุกรง: เหล็ก ปริมาณแถว: เดี่ยว เส้นผ่านศูนย์กลางภายใน: 30 มม. เส้นผ่านศูนย์กลางภายนอก: 72 มม. กว้าง: 19 มม. ประเภทปิด: ฉนวนเดี่ยว ความจุโหลด: ไดนามิก: 29.6 KN ความเร็ว: 16 รอบต่อนาที; หมายเลขชิ้นส่วนของผู้ผลิต 13000 63 63 Z SKF

ฉันต้องการค้นหา "63 6306 Z SKF" ภายในข้อความสุดท้าย ใครก็ได้ช่วยชี้แนะฉันที

ตอบ

คริสตัล Jagan

ประมาณ 4 ปีที่แล้ว

#28095

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดีจ่าแกน
ข้อความสุดท้ายที่คุณแสดงด้านบนจะอยู่ในเซลล์เดียวใช่หรือไม่ หรือคุณช่วยกรุณาให้ภาพหน้าจอของตัวอย่างของคุณซึ่งแสดงว่าคุณกำลังพยายามทำอะไรอยู่

ตอบ

รายงาน

วิกาศ ศรีวัสทาฟ

ประมาณ 4 ปีที่แล้ว

#28942

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

Dear Sir,

บิล ไม่มีบิล วันที่ ชื่อรายการ ชื่อรายการ จำนวนตามจริง
01 01-04-2019 abc โมบายล์ 20

ISKO ยี่สิบ ROW ME LANA HAI

กรุณามาดาด คิจิเย่ สำคัญมาก

ตอบ

อิกรัมข่าน

ประมาณ 3 ปีที่แล้ว

#32951

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

9310B82214332A สิ่งนี้ไม่ต้องการหกในคอลัมน์ถัดไปในรูปแบบนี้ 82214332A จะทำอย่างไร

ตอบ

สกอตต์

ประมาณ 2 ปีที่แล้ว

#34027

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

มีวิธีใดบ้างที่สูตร Split Numbers จะทำงานบนเซลล์ที่ได้รับข้อมูลที่เปลี่ยนแปลง เพื่อให้ตัวเลขที่แยกอัปเดตโดยอัตโนมัติเมื่อเซลล์ต้นทางเปลี่ยนแปลง

ตอบ

สเตฟาน เอส

เกี่ยวกับเดือนที่ผ่านมา 6

#41522

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

Hi

ฉันต้องการความช่วยเหลือดังต่อไปนี้:

เซลล์เดียวมีตัวเลข [1,1,1,2,2,3,4,1]

ฉันต้องการให้ตัวเลขนี้มีผลในเซลล์อื่นเพื่อแสดง [1,2,3,4] เท่านั้น

นอกจากนี้ยังหมายถึงถ้ามี 0 เช่น [1,1,0,1,4,2]
ถ้าอย่างนั้นฉันต้องการให้ดูเหมือน = [1,2,4]

ชนิดนับถือ
SS

ตอบ

คริสตัล สเตฟาน เอส

เกี่ยวกับเดือนที่ผ่านมา 6

#41565

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

สวัสดี สเตฟาน เอส
โปรดใช้ฟังก์ชันที่ผู้ใช้กำหนดเองต่อไปนี้เพื่อแก้ปัญหานี้
1. หลังจากเพิ่มโค้ดต่อไปนี้ในหน้าต่างโมดูล (โค้ด)
2. กลับไปที่แผ่นงาน เลือกเซลล์ ป้อนสูตรนี้ =RemoveDupes2(A1) และกดปุ่ม เข้าสู่ กุญแจสำคัญในการรับผลลัพธ์

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/digits.png

Function RemoveDupes2(txt As String, Optional delim As String = ",") As String
    Dim x
    Dim arr()
    'Updateby Extendoffice 20221128
    Application.Volatile
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .Exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Exists("0") Then .Remove ("0")
        If .Count > 0 Then
            xCount = .Count
            ReDim arr(1 To xCount)
            i = 1
            For Each Key In .Keys
                arr(i) = Key
                i = i + 1
            Next

            For i = 1 To xCount - 1
                For j = i + 1 To xCount
                If arr(i) > arr(j) Then
                        temp = arr(i)
                        arr(i) = arr(j)
                        arr(j) = temp
                    End If
                Next j
            Next i

            RemoveDupes2 = Join(arr, delim)
        End If
    End With
End Function

ตอบ

รายงาน

สเตฟาน คริสตัล

เกี่ยวกับเดือนที่ผ่านมา 6

#41619

ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์

คริสตัลที่รัก

ขอบคุณสำหรับความคิดเห็นของคุณ. มันใช้งานได้ดี! คุณคือดาว!

ชนิดนับถือ
SS

ตอบ

มีความคิดเห็นยังไม่มีการโพสต์ที่นี่