帮写个VBA宏，<em>excel</em>用的<em>批量替换宏</em&g

Cells.Replace
返回 Boolean 类型，指示指定区域内单元格中的字636f7079e799bee5baa6e79fa5e98193361符。使用本方法并不会更改选定区域或活动单元格。
格式：expression.Replace(What, Replacement, LookAt, SearchOrder, MatchCase, MatchByte, SearchFormat, ReplaceFormat)
expression 必需。该表达式返回一个 Range 对象。
What Variant 类型，必需。Microsoft Excel 要搜索的字符串。
Replacement Variant 类型，必需。替换字符串。
LookAt Variant 类型，可选。可为以下 XlLookAt 常量之一：xlWhole 或 xlPart。
SearchOrder Variant 类型，可选。可为以下 XlSearchOrder 常量之一：xlByRows 或 xlByColumns。
MatchCase Variant 类型，可选。如果为 True，则进行区分大小写的搜索。
MatchByte Variant 类型，可选。只有当在 Microsoft Excel 中选择或安装了双字节语言支持时，才可以使用本参数。如果为 True，则使双字节字符仅匹配双字节字符。如果为 False，则双字节字符可匹配其等价的单字节字符。
SearchFormat Variant 类型，可选。该方法的搜索格式。
ReplaceFormat Variant 类型，可选。该方法的替换格式。

具体的代码得看你需要进行什么样的替换，这样没头没脑的，实在没法写出代码来。

直接通过VBA重设公式即可，

1月按钮zd的单击事件专代码：

range("C3:C25").Formula = "=VLOOKUP(B3,......[出入库报表201501.xlsx]1月......)"

2月按钮的单击事件代码：

range("C3:C25").Formula = "=VLOOKUP(B3,......[出入库报表201502.xlsx]2月......)"

公式中的......自己补上。

祝你成功！属

两个百a选哪个？度问？？

都是唯一答的对应值专，代码属如下

Sub test()
    Dim arr, brr, x&, y&
    With Sheet1
        arr = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
    End With
    With Sheet2
        brr = .Range("A1:B" & .Range("A65536").End(xlUp).Row)
    End With
    For x = 1 To UBound(arr)
        For y = 1 To UBound(brr)
            arr(x, 1) = Replace(UCase(arr(x, 1)), UCase(brr(y, 1)), brr(y, 2))
        Next y
    Next x
    Sheet1.Range("A1").Resize(UBound(arr)) = arr
End Sub