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列。