判断单元格区域（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
