excel vba批量替换内容 VBA批量替换EXCEL里面的内容,求代码~~

EXCEL VBA \u6279\u91cf\u66ff\u6362\u5355\u5143\u683c\u5185\u5bb9

1\u3001\u51c6\u5907\u6570\u636e\u3002

2\u3001\u9009\u4e2d\u6570\u636e\u3002

3\u3001\u6309ctrl+h\u7ec4\u5408\u952e\u3002

4\u3001\u6253\u5f00\u66ff\u6362\u754c\u9762\u3002

5\u3001\u8f93\u5165\u66ff\u6362\u5185\u5bb9\u548c\u8981\u66ff\u6362\u7684\u5185\u5bb9\u3002

6\u3001\u70b9\u51fb\u5168\u90e8\u66ff\u6362\u5373\u53ef\u3002

\u6ce8\u610f\u4e8b\u9879\uff1a
Office\u5e38\u662f\u5236\u4f5c\u6587\u6863\u6587\u4ef6\u7684\u6807\u51c6\uff0c\u800c\u4e14\u6709\u4e00\u4e9b\u5176\u4ed6\u4ea7\u54c1\u4e0d\u5b58\u5728\u7684\u7279\u6027\uff0c\u4f46\u662f\u5176\u4ed6\u4ea7\u54c1\u4e5f\u6709Office\u7f3a\u5c11\u7684\u7279\u6027\u3002\u81ea\u4eceMicrosoft 2007 Office System\u5f00\u59cb\uff0c\u6709\u4e00\u4e2a\u548c\u4ee5\u524d\u7248\u672c\u5dee\u5f02\u5f88\u5927\u7684\u7528\u6237\u754c\u9762\uff0c\u8be5\u754c\u9762\u88ab\u79f0\u4e3aRibbon\u754c\u9762\uff0c\u5e76\u6cbf\u7528\u5728Microsoft Office 2010\u3001Microsoft Office 2013\u548cMicrosoft Office 2016\u4e2d\u3002

\u8fd0\u884c\u4ee5\u4e0b\u5b8f\u5373\u53ef
Sub \u67e5\u627e\u4e0e\u66ff\u6362()
Dim Cz As String
Dim Th As String
Cz = InputBox("\u8bf7\u8f93\u5165\u88ab\u66ff\u6362\u7684\u5b57\u7b26")
Th = InputBox("\u8bf7\u8f93\u5165\u66ff\u6362\u7684\u5b57\u7b26")
Cells.Replace What:=Cz, Replacement:=Th, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub s()
    arr = Array("490516", "051627", "162738", "273849", "384905", "490516", "051627", "162738", "273849", "384905")
    Dim c As Range
    For Each c In [b10:k1000]
        If c <> "" Then
            t = ""
            For i = 1 To Len(c)
                a = Val(Mid(c, i, 1))
                t = t & "/" & arr(a)
            Next
            c = Mid(t, 2)
        End If
    Next
End Sub

for each cel in range("B10：k1000")
replace(cel.value,"A","B")
next

扩展阅读：不同内容的批量替换 ... vba批量修改excel文件 ... word vba批量替换 ... excel批量替换部分文字 ... excel 批量替换 不同值 ... excel两个格子内容互换 ... 调换两个单元格内容 ... excel 批量替换几种方法 ... 表格批量替换内容怎么替换 ...