判斷單元格區(qū)域(Range)有沒有值
Sub aa()
If Application.CountIf(Range("e5:g5"), "<>") > 0 Then
MsgBox "至少有一個(gè)不為空"
Else
MsgBox "全為空"
End If
End Sub
計(jì)算單元格區(qū)域(Range)所有數(shù)據(jù)的和
WorksheetFunction.Sum(一個(gè)range)
單列中最后一行的位置
mainWorkbook.Sheets(sh6_name).Range("C65536").End(xlUp).row