Excel 批量 替换 宏 VBA-excel批量替换宏,excel用宏实现自动替换

1、准备数据。

2、选中数据。

3、按ctrl+h组合键。

4、打开替换zd界面。

5、输入替换内容和要替换的内容。

6、点击全部替换即可。

注意事项：

Office常是制作文档文件的标准，而且有一些其他产品不存在的特专性，但是其他产品也属有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。

两个a选哪个？？来？

都是唯一的自对应值，代码zhidao如下

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

sheet1 贴到Sheet2

sub xxx()
  for i=1 to sheets("sheet1").range("A65536").end(xlup).row step 5
      sheets("sheet1").rang("A"&i &":C" & i+4).copy sheets("sheet2").cells(1,(i-1)*4/5+1)
 next
end sub

如果确定A列中所有不规则括号都百在字符串的首尾度的话，的确不需要宏，直接用公式知即可：

B1：="["&MID(A1,2,LEN(A1)-2)&"]"

MID函数将A列中的字符串从第2个字符起，截道取整个字符串长度减2字符，即掐头去尾取括号中间的专内容，然后两头加上规则括号即可。属