怎样使用VBA将大于等于60的考分替换成“合格”?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Sub 多表替换()

    Dim sh_count As Byte, row_count As Long  '声明变量
    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分的成绩已替换成“合格”字样，