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