1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 多表替换() Dim sh_count A衡痕贤伎s Byte, row_count As Long &垆杪屑丝#39;声明变量 For sh_count=1 To Sheets.Count '为变量赋值，范围是1到工作表数量 For row_count=2 To Sheets(sh_count).Range("a1048576").End(xlUp).Row '为变量赋值 If Sheets(sh_count).Cells(row_count, 2) >=60 Then '如果成绩大于等于60 Sheets(sh_count).Cells(row_count, 2)="合格" '替换为“合格” End If Next row_count '重复下一行 Next sh_count '重复下一个工作表End Sub
5、利用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，三个工作表中所有大于等于60分的成绩已替换成“合格”字样，
