工作簿函數(shù)—countif、vlookup


Sub chaxun()

Sheet1.Range("d20").ClearContents

? On Error Resume Next

? ? For i = 2 To Sheets.Count

? ? ? ? Sheet1.Range("d14") = Application.WorksheetFunction.VLookup(Range("d9"), Sheets(i).Range("a:j"), 5, 0)

? ? ? ? Sheet1.Range("d16") = Application.WorksheetFunction.VLookup(Range("d9"), Sheets(i).Range("a:j"), 6, 0)

? ? ? ? Sheet1.Range("d18") = Application.WorksheetFunction.VLookup(Range("d9"), Sheets(i).Range("a:j"), 3, 0)

? ? ? ? Sheet1.Range("d20") = Application.WorksheetFunction.VLookup(Range("d9"), Sheets(i).Range("a:j"), 8, 0)

? ? ? ? Sheet1.Range("d22") = Sheets(i).Name

? ? ? ? If Sheet1.Range("d20") <> "" Then

? ? ? ? ? Exit For

? ? ? ? End If

? ? Next

End Sub

Sub tongji()

? ? Dim i As Integer

? ? Dim k As Integer

? ? Dim x As Integer

? ? Dim y As Integer

? ? For i = 2 To Sheets.Count

? ? ? ? k = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a"))-1

? ? ? ? x = x + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")-1

? ? ? ? y = y + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")-1

? ? Next

? ? Sheet1.Range("d26") = k

? ? Sheet1.Range("d27") = x

? ? ? Sheet1.Range("d28") = y

End Sub

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成，瀏覽時請結(jié)合常識與多方信息審慎甄別。
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點(diǎn)，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容