Excel vba 数据表数据操作

判断单元格区域（Range）有没有值

Sub aa()
  If Application.CountIf(Range("e5:g5"), "<>") > 0 Then
    MsgBox "至少有一个不为空"
  Else
    MsgBox "全为空"
  End If
End Sub

计算单元格区域（Range）所有数据的和

WorksheetFunction.Sum(一个range)

单列中最后一行的位置

mainWorkbook.Sheets(sh6_name).Range("C65536").End(xlUp).row