Bagaimana cara memecah atau membagi nomor menjadi beberapa digit di Excel?

Misalkan Anda perlu memecah atau membagi nomor menjadi beberapa digit seperti gambar di bawah ini yang ditunjukkan, apa yang dapat Anda lakukan untuk mencapainya? Artikel ini akan memberikan dua metode untuk Anda.

Pisahkan atau pisahkan nomor menjadi beberapa digit dengan rumus
Memecah atau membagi nomor menjadi digit individu dengan Kutools for Excel

Pisahkan atau pisahkan nomor menjadi beberapa digit dengan rumus

Bagian ini akan menampilkan rumus untuk membagi sel nomor yang dipilih menjadi beberapa digit di Excel.

1. Pilih sel kosong (mengatakan sel C1) untuk menemukan digit pemisah pertama dari nomor di sel A1, lalu masukkan rumus = MID ($ A1, COLUMN () - (COLUMN ($ C1) - 1), 1) ke dalam bilah rumus, lalu tekan Enter kunci.

Note: Dalam rumusnya, A1 adalah sel dengan angka yang perlu Anda pisahkan menjadi digit, dan C1 adalah sel untuk menemukan digit pemisah pertama. Harap ubah sesuai kebutuhan Anda.

2. Tetap pilih sel C1, lalu seret Fill Handle ke sel kanan sampai semua digit sel A1 terpecah.

3. Biarkan sel digit terpisah ini dipilih, dan seret Fill Handle ke bawah ke sel sampai semua angka dibagi menjadi digit terpisah. Lihat tangkapan layar:

Memecah atau membagi nomor menjadi digit individu dengan Kutools for Excel

The Pisahkan Sel kegunaan Kutools for Excel membantu Anda dengan mudah membagi semua sel angka yang dipilih menjadi beberapa digit sekaligus. Silakan lakukan sebagai berikut.

Sebelum melamar Kutools for Excel, Mohon unduh dan instal terlebih dahulu.

1. Pilih sel dengan nomor yang perlu Anda bagi menjadi beberapa digit, lalu klik Kutools > Gabungkan & Pisahkan > Pisahkan Sel. Lihat tangkapan layar:

2. Dalam Pisahkan Sel kotak dialog, pilih Pisahkan ke Kolom pilihan dalam Tipe bagian, dan di bagian Tentukan pemisah, pilih Tentukan lebar dan masukkan angka 1 ke dalam kotak teks. Klik OK .

3. Pada popping up berikutnya Pisahkan Sel kotak dialog, tentukan sel kosong untuk menemukan digit pemisah pertama, lalu klik OK .

Setelah mengklik OK tombol, semua angka dalam sel yang dipilih dibagi menjadi beberapa digit segera seperti gambar di bawah ini.

Jika Anda ingin memiliki uji coba gratis (30-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Memecah atau membagi nomor menjadi digit individu dengan Kutools for Excel

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Read More ... Download Gratis... Membeli...

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!

Read More ... Download Gratis... Membeli...

komentar (12)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Reddy

tentang 6 tahun lalu

#17395

Komentar ini diminimalkan oleh moderator di situs

Hai, Beri tahu saya rumus untuk menggabungkan angka multi digit menjadi satu digit exp: 12345 (dalam satu sel) hitung otomatis menjadi 1+2+3+4+5 = 6

membalas

Priya

tentang 5 tahun lalu

#23305

Komentar ini diminimalkan oleh moderator di situs

Opsi Eksplisit
'Fungsi utama
Fungsi NumberToText(ByVal MyNumber)
Hitungan redup
Hasil redup
Panjang N redup
Hitung = 1
NPanjang = Len(Nomor Saya) + 1
Lakukan Sementara Hitung <NPanjang
Hasil = Hasil & GetDigit(Mid(MyNumber, Count, Count)) & Spasi(1)
Hitung = Hitung + 1
Lingkaran
NumberToText = Hasil
End Function

Fungsi GetDigit(Digit)
Pilih Kasus Val (Digit)
Kasus 1: GetDigit = "Satu"
Kasus 2: GetDigit = "Dua"
Kasus 3: GetDigit = "Tiga"
Kasus 4: GetDigit = "Empat"
Kasus 5: GetDigit = "Lima"
Kasus 6: GetDigit = "Enam"
Kasus 7: GetDigit = "Tujuh"
Kasus 8: GetDigit = "Delapan"
Kasus 9: GetDigit = "Sembilan"
Kasus Lain: GetDigit = "Nol"
End Select
End Function

Saya mencoba mengubah angka menjadi kata-kata untuk mempersiapkan tujuan lembar tanda. Misal: 63 => Enam Tiga tetapi ini tidak bekerja dengan angka 3 digit Misal:798 =>Seven Zero Eight ERROR. Tolong bantu

membalas

kristal Priya

tentang 5 tahun lalu

#23306

Komentar ini diminimalkan oleh moderator di situs

Priya yang terhormat,
Fungsi yang ditentukan pengguna berikut dapat membantu Anda.

Fungsi NumberToText(ByVal xNum)
Redup Aku Selamanya
Redupkan xTemp Selamanya
Redupkan xStr Sebagai String
Hasil Redup Sebagai String
Untuk I = 1 Untuk Len(xNum)
xTemp = Pertengahan(xNum, I, 1)
Pilih Kasus xTemp
Kasus 1: xStr = "Satu"
Kasus 2: xStr = "Dua"
Kasus 3: xStr = "Tiga"
Kasus 4: xStr = "Empat"
Kasus 5: xStr = "Lima"
Kasus 6: xStr = "Enam"
Kasus 7: xStr = "Tujuh"
Kasus 8: xStr = "Delapan"
Kasus 9: xStr = "Sembilan"
Kasus Lain: xStr = "Nol"
End Select
Hasil = Hasil & xStr & Spasi(1)
Selanjutnya
NumberToText = Hasil
End Function

membalas

Laporan

Yogesh kumar

tentang 4 tahun lalu

#25630

Komentar ini diminimalkan oleh moderator di situs

jika data dalam format di bawah ini apa yang akan dilakukan?
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

Perlu nomor dari sel 1 ke nomor judul di bawah (yaitu jika kita memiliki 1,5,11 maka jawaban dimasukkan ke dalam sel di bawah 1,5,11)

membalas

Jagan

tentang 4 tahun lalu

#28094

Komentar ini diminimalkan oleh moderator di situs

Teks Akhir: BEARING, BOLA; TYPE: ALUR DALAM, KANGKUNG BAHAN: BAJA, JUMLAH BARIS: TUNGGAL, DIAMETER DALAM: 30 MM, DIAMETER LUAR: 72 MM, LEBAR: 19 MM, JENIS PENUTUPAN: SHIELDED TUNGGAL, KAPASITAS BEBAN: DINAMIS: 29.6, STATIK: 16 KECEPATAN: 13000 RPM; BAGIAN PRODUSEN NO 63 63 6306 Z SKF

Saya ingin menemukan "63 6306 Z SKF" dalam teks terakhir, Adakah yang bisa membimbing saya?

membalas

kristal Jagan

tentang 4 tahun lalu

#28095

Komentar ini diminimalkan oleh moderator di situs

Hai Jagan,
Teks terakhir yang Anda tunjukkan di atas berada dalam satu sel? atau bisakah Anda memberikan tangkapan layar dari contoh Anda yang menunjukkan apa yang sebenarnya Anda coba lakukan?

membalas

Laporan

Vikash Srivastav

tentang 4 tahun lalu

#28942

Komentar ini diminimalkan oleh moderator di situs

Saudara yg terhormat,

bill no bill Tanggal Nama Pesta Nama Barang Jumlah Akutal
01 01-04-2019 abc ponsel 20

ISKO DUA PULUHAN MENURUNKAN ME LANA HAI

SILAKAN MADAD KIJIYE SANGAT SANGAT PENTING

membalas

ikram khan

tentang 3 tahun lalu

#32951

Komentar ini diminimalkan oleh moderator di situs

9310B82214332A ini tidak ingin tumpah di kolom berikutnya dalam format ini 82214332A apa yang harus dilakukan

membalas

Scott

tentang 2 tahun lalu

#34027

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara agar rumus Split Numbers bekerja pada sel yang menerima data yang berubah, sehingga nomor split secara otomatis diperbarui ketika sel sumber berubah?

membalas

Stefan S

sekitar 6 bulan yang lalu

#41522

Komentar ini diminimalkan oleh moderator di situs

Hi

Saya ingin mendapatkan bantuan sebagai berikut:

Satu sel jumlahnya adalah [1,1,1,2,2,3,4,1]

Saya ingin membiarkan angka ini hanya menghasilkan sel lain untuk diilustrasikan [1,2,3,4]

Ini juga berarti jika ada 0, misalnya, [1,1,0,1,4,2]
Maka saya ingin terlihat seperti = [1,2,4]

Salam
SS

membalas

kristal Stefan S

sekitar 6 bulan yang lalu

#41565

Komentar ini diminimalkan oleh moderator di situs

Halo Stevan S,
Harap terapkan fungsi yang ditentukan pengguna berikut untuk mengatasi masalah ini.
1. Setelah menambahkan kode berikut ke dalam jendela Module (Code).
2. Kembali ke lembar kerja, pilih sel, masukkan rumus ini =HapusDupes2(A1) dan tekan tombol Enter kunci untuk mendapatkan hasil.

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

membalas

Laporan

Stefan kristal

sekitar 6 bulan yang lalu

#41619

Komentar ini diminimalkan oleh moderator di situs

Kristal sayang

Terima kasih atas komentarmu. Ini bekerja dengan baik! Anda seorang bintang!

Salam
SS

membalas

Belum ada komentar yang diposting di sini