VBA_公式01

使用countA、countif進行統計（sheet）

Sub tongji()
Dim i, k, l, m As Integer
For i = 2 To Sheets.Count
k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1
l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")
m = m + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "女")
Sheet1.Range("d26") = k
Sheet1.Range("d27") = l
Sheet1.Range("d28") = m
Next
End Sub

 

使用vlookup進行查詢（sheet）

Sub chaxun()
Dim i As Integer
Sheet1.Range("D14:D22").ClearContents
On Error Resume Next '當發生錯誤時執行下一行
For i = 2 To Sheets.Count
Sheet1.Range("D14") = Application.WorksheetFunction.VLookup(Sheet1.Range("D9"), Sheets(i).Range("A:H"), 5, 0)
Sheet1.Range("D16") = Application.WorksheetFunction.VLookup(Sheet1.Range("D9"), Sheets(i).Range("A:H"), 6, 0)
Sheet1.Range("D18") = Application.WorksheetFunction.VLookup(Sheet1.Range("D9"), Sheets(i).Range("A:H"), 3, 0)
Sheet1.Range("D20") = Application.WorksheetFunction.VLookup(Sheet1.Range("D9"), Sheets(i).Range("A:H"), 8, 0)
If Sheet1.Range("d14") <> "" Then
Sheet1.Range("D22") = Sheets(i).Name
Exit For
End If
Next
End Sub