vba查找替換文本文件

A. 求教各位大神一個關於VBA替換指定文件指定內容的問題！

答：本人寫的如下代碼，經測試能夠達到替換要求。

第1個問題答案見下圖，運行前確保表格里的記錄行和文件數據一致，並且表格為活動表格。

B. excel 使用 VBA 查找和替換

先把sheet 1中的「現地社名」復制到「日本社名」右邊一列
在sheet2「日本社名」右邊一列第一個單元格輸入公式
=VLOOKUP(b2,Sheet1!$b$2:$c$500,2,FALSE)
完了按新得的這一列排序，把沒有找到的塗紅，把找到的復制，然後選擇性粘貼覆蓋「english company name"的內容
重新排序即可

C. 求助下面代碼VBA如何實現對文本文件刪除、替換及保存！

在全文各處做替換，請參看：

Private Sub Loadtxt()
Dim strData(1 To 10000) As String

TotalLines = 0
strFileName = Application.GetOpenFilename("CSV Files (*.txt), *.txt", , "Open TXT File", , False)
On Error GoTo LEND
Open strFileName For Input As #1
While Not EOF(1)
Line Input #1, textline
TotalLines = TotalLines + 1
strData(TotalLines) = Replace(textline, "aaa", "ACB", 1, 1)
Wend
Close #1

Open strFileName For Output As #1
For i = 1 To TotalLines
Print #1, strData(i)
Next i
Close #1
LEND:
End Sub

D. word中用vba自動查找替換某個文本文件中的對照表中內容

把數據文件（或者 示例文件、文檔）發給我，試幫你解決。
（聯系方式 點我的名字，再點「查看更多資料>>」）

E. VBA查找並替換

Sub mfind()
Dim f As Range, r&
r = Cells(Rows.Count, "k").End(3).Row
Set f = Cells(r, "k")(2)
Do
Set f = Range("k:k").Find(1, f, , 1, , xlPrevious)
If f.Row > r Or f.Offset(0, -1) = 3 Then End
f.Offset(0, -1) = 2
r = f.Row
Loop
End Sub

F. VBA求助：如何實現excel與txt之間字元串查找與單元格值的替換

如果你的txt文件使用tab分隔符，那麼以下代碼可以符合你的要求

SubChangeTxt()
DimFileN,TxtWbAsWorkbook,ToFindDataAsString
DimToSubDataAsString,cAsRange,FirstAdrAsString
IfMsgBox("是否已經選中待查找的單元格？",vbYesNo)=vbNoThenExitSub
ToFindData=Selection.Cells(1).Value
ToSubData=Selection.Cells(1).Offset(,1).Value
FileN=Application.GetOpenFilename("Txt文件,*.txt",,"選擇txt文件")
IfTypeName(FileN)="Boolean"ThenExitSub
Workbooks.OpenTextFilename:=FileN,consecutivedelimiter:=False,_
Tab:=True,Space:=False
SetTxtWb=ActiveWorkbook
Setc=TxtWb.Sheets(1).UsedRange.Find(What:=ToFindData,_
LookAt:=xlPart,MatchCase:=False,matchbyte:=False,SearchFormat:=False)
IfNotcIsNothingThen
FirstAdr=c.Address
Do
c.Offset(,4)=ToSubData
Setc=TxtWb.Sheets(1).UsedRange.FindNext(c)
LoopUntilc.Address=FirstAdr
TxtWb.Closesavechanges:=True
MsgBox"替換完畢"
Else
TxtWb.CloseFalse
MsgBox"未找到，請選中要查找的單元格。"
EndIf
Setc=Nothing
SetTxtWb=Nothing
EndSub

Sub宏1()
a="abcd"
b="hijk"
Cells.ReplaceWhat:=a,Replacement:=b,LookAt:=xlPart,_
SearchOrder:=xlByRows,MatchCase:=False,SearchFormat:=False,_
ReplaceFormat:=False
EndSub