


Tutorial VBA: Kaedah untuk carian rentetan dan penggantian nilai sel antara Excel dan fail teks
VBA Bantuan: Bagaimana untuk melaksanakan carian rentetan dan penggantian nilai sel antara excel dan txt
Jika fail txt anda menggunakan pembatas tab, maka kod berikut boleh memenuhi keperluan anda
Sub ChangeTxt()
Malapkan FailN, TxtWb Sebagai Buku Kerja, UntukCariData Sebagai Rentetan
Malapkan ToSubData Sebagai Rentetan, c Sebagai Julat, FirstAdr Sebagai Rentetan
Jika MsgBox ("Adakah sel yang hendak ditemui telah dipilih?", vbYesNo) = vbNo Kemudian Keluar Sub
ToFindData = Pemilihan.Sel(1).Nilai
ToSubData = Selection.Cells(1).Offset(, 1).Value
FileN = Application.GetOpenFilename("Fail teks, *.txt", , "Pilih fail txt")
Jika TypeName(FileN) = "Boolean" Kemudian Keluar Sub
Workbooks.OpenText Filename:=FailN, consecutivedelimiter:=False, _
Tab:=Benar, Ruang:=Salah
Tetapkan TxtWb = ActiveWorkbook
Set c = TxtWb.Sheets(1).UsedRange.Find(What:=ToFindData, _
Lihat:=xlPart, MatchCase:=False, matchbyte:=False, SearchFormat:=False)
Jika Bukan c Tidak Ada Maka
FirstAdr = c.Alamat
Lakukan
c.Offset(, 4) = ToSubData
Set c = TxtWb.Helaian(1).UsedRange.FindNext(c)
Gelung Sehingga c.Alamat = FirstAdr
TxtWb.Tutup savechanges:=Benar
MsgBox "Penggantian selesai"
Lain
TxtWb.Tutup Salah
MsgBox "Tidak dijumpai, sila pilih sel yang anda ingin cari."
Tamat Jika
Set c = Tiada
Set TxtWb = Tiada
Tamat Sub
penggantian kandungan vba excel
Sub s()
Malapkan c Sebagai Julat
n = Sel(Baris. Kiraan, "t").Tamat(3).Baris
Tetapkan rg = Julat("b6:t"& n)
rg.Penjajaran Mendatar = xlCenter
t = InputBox ("Masukkan nombor yang anda ingin cari")
Untuk Setiap c Di rg
Jika c ""” Dan c "√" Dan c "X" Kemudian
Jika InStr(c, t) >0 Kemudian
c = "√"
Lain
c = "X"
Tamat Jika
Tamat Jika
Seterusnya
Untuk Setiap c Di rg
Jika c = "√" Maka
c.Font.Bold = Benar
c.Font.Color = vbBlue
LainJika c = "X" Kemudian
c.Font.Bold = Benar
c.Font.Color = vbRed
Tamat Jika
Seterusnya
Tamat Sub
Gelung melalui rentetan mencari lembaran kerja dan gantikan VBA
Julat("A1").Pilih
Pilihan.Salin
Cells.Find(What:= "*Lighting*", Selepas:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=False).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
ActiveCell.Ganti Apa: = "*Pencahayaan*", Penggantian: = "Banyak Pencahayaan Syarikat *30 kali", Lihat:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
ActiveCell.Ganti Apa: = "*Pencahayaan*", Penggantian: = "Banyak Pencahayaan Syarikat *30 kali", Lihat:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
ActiveCell.Ganti Apa: = "*Pencahayaan*", Penggantian: = "Banyak Pencahayaan Syarikat *30 kali", Lihat:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
ActiveCell.Ganti Apa: = "*Pencahayaan*", Penggantian: = "Banyak Pencahayaan Syarikat *30 kali", Lihat:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
ActiveCell.Ganti Apa: = "*Pencahayaan*", Penggantian: = "Banyak Pencahayaan Syarikat *30 kali", Lihat:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sel.Cari Seterusnya(Selepas:=ActiveCell).Aktifkan
Atas ialah kandungan terperinci Tutorial VBA: Kaedah untuk carian rentetan dan penggantian nilai sel antara Excel dan fail teks. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!

Alat AI Hot

Undresser.AI Undress
Apl berkuasa AI untuk mencipta foto bogel yang realistik

AI Clothes Remover
Alat AI dalam talian untuk mengeluarkan pakaian daripada foto.

Undress AI Tool
Gambar buka pakaian secara percuma

Clothoff.io
Penyingkiran pakaian AI

AI Hentai Generator
Menjana ai hentai secara percuma.

Artikel Panas

Alat panas

Notepad++7.3.1
Editor kod yang mudah digunakan dan percuma

SublimeText3 versi Cina
Versi Cina, sangat mudah digunakan

Hantar Studio 13.0.1
Persekitaran pembangunan bersepadu PHP yang berkuasa

Dreamweaver CS6
Alat pembangunan web visual

SublimeText3 versi Mac
Perisian penyuntingan kod peringkat Tuhan (SublimeText3)

Topik panas

Ditch the Calculator: Mengapa dan Cara Menggunakan Excel untuk Semua Pengiraan Anda Saya tidak menyentuh kalkulator dalam usia. Kenapa? Kerana Microsoft Excel mengendalikan semua pengiraan saya dengan mudah, dan ia boleh melakukan perkara yang sama untuk anda. Mengapa Excel mengalahkan kalkulator Manakala

Mewujudkan jadual di Word, walaupun bertambah baik, masih rumit dan kadang -kadang membawa lebih banyak masalah. Inilah sebabnya mengapa anda sentiasa membuat jadual di Microsoft Excel. Mengapa lebih baik membuat jadual di Excel? Singkatnya, perkataan adalah pemproses perkataan, sementara Excel adalah pemproses data. Jadi perkataan tidak dibina untuk penciptaan meja terbaik, tetapi produk yang sama, Excel. Berikut adalah beberapa sebab mengapa membuat jadual di Excel lebih baik daripada menggunakan Microsoft Word: Walaupun menghairankan bahawa anda boleh menggunakan banyak ciri seperti Excel dalam jadual Microsoft Word, dalam Excel anda

Tingkatkan carta Excel anda: Mengurangkan jurang antara bar dan lajur Membentangkan data secara visual dalam carta dengan ketara meningkatkan kebolehbacaan spreadsheet. Excel cemerlang dalam penciptaan carta, tetapi menu yang luas dapat mengaburkan ciri -ciri sederhana namun kuat, SUC

Pandangan Pantas Fungsi AververIf dan PurperiFS dalam Excel Fungsi Excel's AverifiF dan AverageFs boleh digunakan untuk mengira nilai purata dataset. Walau bagaimanapun, tidak seperti fungsi purata yang lebih mudah, mereka dapat memasukkan atau mengecualikan nilai tertentu dalam pengiraan. Cara menggunakan fungsi purataFIF di Excel Fungsi purata Excel membolehkan anda mengira nilai purata dataset yang ditapis berdasarkan satu set keadaan. Sintaks fungsi purataf Fungsi purataFIF mengandungi tiga parameter: = Purataf (x, y, z)

Versi Web Excel mempunyai peningkatan untuk meningkatkan kecekapan! Walaupun versi desktop Excel lebih kuat, versi web juga telah meningkat dengan ketara sepanjang tahun lalu. Artikel ini akan memberi tumpuan kepada lima penambahbaikan utama: Mudah masukkan baris dan lajur: Di Web Excel, hanya hover ke atas tajuk baris atau lajur dan klik tanda "" yang nampaknya memasukkan baris atau lajur baru. Tidak perlu menggunakan fungsi "Masukkan" menu klik kanan yang mengelirukan lagi. Kaedah ini lebih cepat, dan baris atau lajur yang baru dimasukkan mewarisi format sel bersebelahan. Eksport sebagai fail CSV: Excel kini menyokong pengeksport lembaran kerja sebagai fail CSV untuk pemindahan dan keserasian data mudah dengan perisian lain. Klik "Fail"> "Eksport"

Master Microsoft Excel dengan pintasan papan kekunci penting ini! Lembaran cheat ini memberikan akses cepat kepada arahan yang paling kerap digunakan, menjimatkan masa dan usaha yang berharga. Ia merangkumi kombinasi utama penting, tampal fungsi khas, workboo

Fungsi Lambda Excel: Panduan Mudah untuk Membuat Fungsi Tersuai Sebelum Excel memperkenalkan fungsi Lambda, mewujudkan fungsi tersuai memerlukan VBA atau makro. Sekarang, dengan Lambda, anda boleh dengan mudah melaksanakannya menggunakan sintaks Excel yang biasa. Panduan ini akan membimbing anda langkah demi langkah bagaimana menggunakan fungsi Lambda. Adalah disyorkan bahawa anda membaca bahagian -bahagian panduan ini dalam rangka, mula -mula memahami contoh tatabahasa dan mudah, dan kemudian belajar aplikasi praktikal. Fungsi Lambda tersedia untuk Microsoft 365 (Windows dan Mac), Excel 2024 (Windows dan Mac), dan cemerlang untuk web. E

Pautan cepat Mengapa menggunakan alat kamera?
