Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyusun alamat IP dengan cepat dari Excel ke Excel?

Secara umum, kami menggunakan fungsi Susun untuk mengisih rentetan dalam Excel. Tetapi jika terdapat beberapa alamat IP yang diperlukan untuk menyusun, urutan pengurutan mungkin salah dengan menggunakan fungsi Susun secara langsung seperti di bawah tangkapan skrin yang ditunjukkan. Sekarang saya mempunyai beberapa cara untuk menyusun alamat IP dengan cepat dan betul dalam Excel.

Isih Susun mengikut fungsi Isih Isih Betul
doc sort ip 1 doc sort ip 2

Susun alamat IP mengikut formula

Susun alamat IP oleh VBA

Isih alamat IP oleh Text to Columns


Susun alamat IP mengikut formula


Gunakan formula untuk mengisi alamat IP kemudian semak.

1. Pilih sel yang bersebelahan dengan alamat IP dan ketik formula 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")

tekan Masukkan kunci, dan tarik pemegang mengendalikan sel ke atas untuk menggunakan formula ini.
doc sort ip 3

2. Salin keputusan formula dan tampalkannya sebagai nilai dalam lajur seterusnya. Lihat tangkapan skrin:

doc sort ip 4
doc sort ip 5

3. pastikan nilai disisipkan dipilih, dan klik Tarikh > Isih A ke Z.
doc sort ip 6

4. Di dalam Urutkan Waring dialog, teruskan Kembangkan pilihan diperiksa.
doc sort ip 7

5. klik jenis. Sekarang alamat IP telah diisih dari rendah ke tinggi.
doc sort ip 2

Anda boleh mengalih keluar lajur penolong.


Susun alamat IP oleh VBA

Berikut adalah kod VBA yang juga boleh membantu anda.

1. Akhbar Alt + F11 kunci untuk membolehkan Microsoft Visual Basic untuk Aplikasi tingkap.

2. klik Memasukkan > Modul, salin dan tampal kod itu 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

doc sort ip 8

3. Kemudian klik Alatan > Rujukan, dan semak Ekspresi Biasa Microsoft VBScript 5.5 dalam dialog yang muncul.

doc sort ip 9
doc sort ip 10

4. klik OK dan tekan F5 utama, dialog muncul untuk mengingatkan anda untuk memilih jajaran untuk bekerja.
doc sort ip 11

5. klik OK. Kemudian alamat IP telah diisi dengan sifar.

6. Pilih alamat IP dan klik Tarikh > Isih A ke Z untuk menyusunnya.


Isih alamat IP oleh Text to Columns

Sebenarnya, ciri Teks untuk Lajur boleh memberi anda nikmat dalam Excel juga.

1. Pilih sel yang anda gunakan, dan klik Tarikh > Teks ke Lajur. Lihat tangkapan skrin:
doc sort ip 12

2. Di dalam Tukar Wizard ke Wizard Lajur dialog, lakukan seperti di bawah:

daftar Delimited, dan klik Seterusnya;

daftar lain-lain dan jenis . ke dalam kotak teks dan klik Seterusnya;

Pilih sel di sebelah alamat IP untuk meletakkan hasilnya. Klik Selesai.

doc sort ip 13
doc sort ip 14
doc sort ip 15

3. Pilih semua sel yang mengandungi alamat IP dan sel split, dan klik Tarikh > jenis.
doc sort ip 16

4. Di dalam jenis dialog, klik Tambah tahap untuk menyusun data dari lajur B ke E (sel split). Lihat tangkapan skrin:
doc sort ip 17

5. klik OK. Sekarang lajur telah disusun.
doc sort ip 18


Urus Pantas

- Oleh Nama Akhir (menyusun data berdasarkan kriteria, seperti menyusun mengikut panjang teks, disusun mengikut nama akhir. Semak dengan nilai mutlak dan sebagainya.)
nama maju maju terakhir nama

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.
    bobulus · 6 months ago
    la formule traduite en Francais :
    =TEXTE(GAUCHE(I6;TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE( ".";I6;1)+1;TROUVE(".";I6;TROUVE(".";I6;1)+1)-TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE(".";I6;TROUVE(".";I6;1)+1)+1;TROUVE(".";I6; TROUVE(".";I6;TROUVE(".";I6;1)+1)+1)-TROUVE(".";I6;TROUVE(".";I6;1)+1)-1); "000") & "." & TEXTE(DROITE(I6;NBCAR(I6)-TROUVE(".";I6;TROUVE(".";I6;TROUVE( ".";I6;1)+1)+1));"000")
  • To post as a guest, your comment is unpublished.
    Chris · 1 years ago
    Why does the formula not work for the last octet? It adds zeros to the 3rd octet but not the last? So frustrating.
    • To post as a guest, your comment is unpublished.
      Sunny · 10 months ago
      I have tested the formula before I post it, it can work for the last octer. Have you checked the formula you pasted is correct?