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

or

Bagaimana untuk mencari dan menggantikan teks kemudian mengekalkan format dalam Excel?

mencari doc menggantikan format memelihara 1
mencari doc menggantikan format memelihara 2
Cari dan Gantikan fungsi adalah kuat dan berguna apabila kita perlu mencari nilai tertentu dan menggantinya dengan yang lain. Tetapi jika terdapat pelbagai sel, dan beberapa sel termasuk nilai pemformatan yang berbeza. Dalam kes ini, untuk mencari dan menggantikan nilai dengan fungsi Cari dan Ganti akan memecahkan pemformatan nilai-nilai dalam sel seperti di bawah tangkapan skrin yang ditunjukkan, bagaimana kita boleh mengekalkan pemformatan nilai dalam setiap sel sambil mencari dan menggantikan dalam Excel?

Cari dan gantikan mengekalkan pemformatan dengan kod Makro

baikPane navigasi - Cari dan Ganti

Kutools untuk Excelmaju Cari dan Ganti fungsi, boleh membantu anda mencari dan
menggantikan nilai merentas pelbagai helaian dan buku kerja.
mencari dan menggantikan doc

anak panah gelembung kanan biru Cari dan gantikan mengekalkan pemformatan dengan kod Makro


Tidak ada kaedah lain tetapi kod makro dapat membantu anda mencari dan menggantikan teks dan mengekalkan pemformatan.

1. Akhbar Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Permohonan tingkap.

2. klik Memasukkan > Modul, dan tampal di bawah kod ke skrip.

VBA: Cari dan gantikan mengekalkan pemformatan

Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
  'UpdatebyExtendoffice20160711
    Dim I As Long
    Dim xLenFind As Long
    Dim xLenRep As Long
    Dim K As Long
    Dim xValue As String
    Dim M As Long
    Dim xCell As Range
    xLenFind = Len(FindText)
    xLenRep = Len(ReplaceText)
    If Not MatchCase Then M = 1
    For Each xCell In Rng
        If VarType(xCell) = vbString Then
            xValue = xCell.Value
            K = 0
            For I = 1 To Len(xValue)
              If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
                xCell.Characters(I + K, xLenFind).Insert ReplaceText
                K = K + xLenRep - xLenFind
              End If
            Next
        End If
    Next
End Sub

Sub Test_CharactersReplace()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub

mencari doc menggantikan format memelihara 5

3. Akhbar F5 utama, dialog muncul untuk anda untuk memilih julat untuk mencari dan menggantikan, lihat tangkapan skrin:
mencari doc menggantikan format memelihara 6

4. Klik OK, dan rentetan khusus dalam sel yang dipilih menggantikan dengan yang lain dan menyimpan pemformatan.
mencari doc menggantikan format memelihara 4

Petua: Dalam kod, KK adalah rentetan yang anda mahu cari, dan Kutools adalah rentetan yang ingin anda ganti dengan, anda boleh menukarnya seperti yang anda perlukan.

doc muat turun 1


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.

Be the first to comment.