Bagaimana cara mengurutkan alamat IP dengan cepat dari rendah ke tinggi di Excel?
Secara umum, kami menggunakan fungsi Sort untuk mengurutkan string di Excel. Tetapi jika ada beberapa alamat IP yang diperlukan untuk mengurutkan, urutan pengurutan mungkin salah dengan menggunakan fungsi Urutkan secara langsung seperti gambar di bawah ini. Sekarang saya punya beberapa cara untuk mengurutkan alamat IP dengan cepat dan benar di Excel.
Salah Urutkan berdasarkan fungsi Sortir | Urutan yang Benar |
Urutkan alamat IP berdasarkan rumus
Urutkan alamat IP berdasarkan VBA
Urutkan alamat IP berdasarkan Teks ke Kolom
Urutkan alamat IP berdasarkan rumus
Gunakan rumus untuk mengisi alamat IP lalu urutkan.
1. Pilih sel yang berdekatan dengan alamat IP dan ketikkan rumus ini
=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")
pers Enter kunci, dan seret gagang isian ke sel untuk menerapkan rumus ini.
2. Salin hasil rumus dan tempelkan sebagai nilai di kolom berikutnya. Lihat tangkapan layar:
3. pertahankan nilai yang ditempelkan dipilih, dan klik Data > Urutkan A sampai Z.
4. Dalam Sortir Waring dialog, simpan Perluas seleksi diperiksa
5. klik Jenis. Sekarang alamat IP telah diurutkan dari rendah ke tinggi.
Anda dapat menghapus kolom pembantu.
Urutkan alamat IP berdasarkan VBA
Berikut adalah kode VBA yang juga dapat membantu Anda.1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, salin dan tempel kode ke skrip kosong.
VBA: Isi alamat IP
Sub FormatIP()
'UpdatbyExtendoffice20171215
Dim xReg As New RegExp
Dim xMatches As MatchCollection
Dim xMatch As Match
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim xArr() As String
On Error Resume Next
Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
With xReg
.Global = True
.Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
For Each xCell In xRg
Set xMatches = .Execute(xCell.Value)
If xMatches.Count = 0 Then GoTo xBreak
For Each xMatch In xMatches
xArr = Split(xMatch, ".")
For I = 0 To UBound(xArr)
xArr(I) = Right("000" & xArr(I), 3)
If I <> UBound(xArr) Then
xArr(I) = xArr(I) & "."
End If
Next
Next
xCell.Value = Join(xArr, "")
xBreak:
Next
End With
End Sub
3. Lalu klik Tools > Referensi, dan cek Ekspresi Reguler Microsoft VBScript 5.5 di dialog yang muncul.
4. klik OK dan tekan F5 kunci, sebuah dialog muncul untuk mengingatkan Anda untuk memilih rentang yang akan digunakan.
5. klik OK. Maka IP Addressnya sudah diisi dengan angka nol.
6. Pilih alamat IP dan klik Data > Urutkan A sampai Z untuk mengurutkannya.
Urutkan alamat IP berdasarkan Teks ke Kolom
Sebenarnya, fitur Teks ke Kolom juga bisa membantu Anda di Excel.
1. Pilih sel yang Anda gunakan, dan klik Data > Teks ke Kolom. Lihat tangkapan layar:
2. Dalam Convert Teks ke Columns Wizard dialog, lakukan seperti di bawah ini:
Memeriksa Terbatas, Dan klik Selanjutnya;
Memeriksa Lainnya dan jenis . ke dalam kotak teks, dan klik Selanjutnya;
Pilih sel di sebelah alamat IP untuk menempatkan hasilnya. Klik Finish.
3. Pilih semua sel yang berisi alamat IP dan sel yang dipisahkan, lalu klik Data > Jenis.
4. Dalam Jenis dialog, mengklik Tambahkan level untuk mengurutkan data dari kolom B ke E (sel yang terpisah). Lihat tangkapan layar:
5. klik OK. Sekarang kolom-kolomnya telah diurutkan.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!