Sub setBlankRowColor()

      Dim lngLastRow As Long

      Dim i As Long

            '获取工作表中已使用区域最后一行的行号

       lngLastRow = Cells(Rows.Count,1).End(xlUp).Row

             '遍历行

       For i = 1 To lngLastRow

          '判断每行中第1列的单元格是否为空

          If IsEmpty(Cells(i, 1)) Then

              '若为空则设置该行相应单元格背景色为灰色

              Cells(i, 1).Resize(1,6).Interior.Color = RGB(225, 225, 225) 

         End If

      Next i

  End Sub

     在代码中，我们使用了IsEmpty函数来检查单元格是否为空。

     IsEmpty函数  IsEmpty函数返回布尔值（Boolean值），指明某单元格是否为空。如果单元格为空，则返回True；如果不为空，则返回False。  注意，单元格必须真的是空单元格，该函数才返回True。如果单元格中有我们看不见的空格，该函数也会认为该单元格不为空。     其他判断空单元格的方法

  在VBA代码中，如果要判断单元格A1是否为空单元格，也可以使用下列方法：

  1. Cells(1, 1) = '' 或 Range(“A1”)= ''

  2. Len(Cells(1, 1)) = 0 或Len(Range(“A1”))= 0

  3. Cells(i, 1) = vbNullString 或Range(“A1”)= vbNullString

  4. Application.WorksheetFunction.CountBlank(Cells(1,1))

  5. 为了防止单元格中有空格，可以使用：  Len(Trim(Cells(i, 1))) = 0