Private Sub CommandButton21_Click()For i = 1 To 100 If Len(Cells(i, 1).Text) = 0 Then Cells(i, 1).Interior.Color = RGB(255, 255, 0) End IfNextEnd Sub加个按钮,双击粘贴进去,我这是对第一列,第几列你自己改 如果多列加个for循环这个用条件格式就能搞定,干嘛写VBA啊