如何对Excel首行和尾行内容批量替换

Question

有多个文件，现在需要对它们的首行和尾行内容同时进行批量替换，改如何操作

Answer 1

使用如下宏代码：

Sub ReplaceHeadEnd()
  Dim StRow as long,EndRow as long,StCol as long ,EndCol as long
  ActiveSheet.UsedRange.Select
  StRow=ActiveSheet.UsedRange.Row
  EndRow=StRow+ActiveSheet.UsedRange.Rows.Count-1
  StCol =ActiveSheet.UsedRange.column
  EndCol =StRow+ActiveSheet.UsedRange.columns.count-1
  for pi=stcol to endcol
    activesheet.cells(StRow,Pi)=Repace(ActiveSheet.Cells(StRow,Pi),"查找的字符串","替换为新的字符串")
   activesheet.cells(EndRow,Pi)=Repace(ActiveSheet.Cells(EndRow,Pi),"查找的字符串","替换为新的字符串") 
   Doevents
  next
  msgbox "处理完毕！" & vbCrLf & "更多批处理功能，请参见百宝箱V10.0",vbinformation+vbOkOnly,"消息"
End Sub

Answer 2

看这个工具能否满足要求；如果不行，说下具体要求，帮ni改改。

本回答被网友采纳

Answer 3

用正则表达式 或者复制到notepad++用正则表达式处理

Answer 4

写代码能实现你的需求追问

写什么代码？

追答

就是自动化完成，写代码自动后台进行！

Answer 5

用宏代码才方便