當前位置:成語大全網 - 新華字典 - VBA代碼修改篩選後統計只計算“在職”的員工人數,並將計算結果放到sheet2裏面?

VBA代碼修改篩選後統計只計算“在職”的員工人數,並將計算結果放到sheet2裏面?

如果妳想在VBA代碼中修改篩選後統計"在職"員工人數,並將計算結果放到sheet2中,可以這樣做:

在Sheet1中打開VBA編輯器:按Alt + F11。

在VBA編輯器中,點擊插入模塊。

輸入以下代碼:

Sub CountEmployees()

Dim lRow As Long

Dim i As Long

Dim count As Long

'獲取數據範圍

lRow = Cells(Rows.Count, 1).End(xlUp).Row

'遍歷每壹行

For i = 1 To lRow

'如果員工狀態為"在職"

If Cells(i, 2) = "在職" Then

'計數器加壹

count = count + 1

End If

Next i

'在Sheet2中插入計數器的值

Sheets("Sheet2").Cells(1, 1) = count

End Sub

在VBA編輯器中運行代碼:按F5。

返回到sheet2中查看結果。

以上代碼假設數據存儲在Sheet1中,員工狀態在第二列,並且需要對每行進行遍歷,如果員工狀態為"在職",則將計數器加壹。最後,將計數器的值插入到Sheet2的第1行第1列。