如果妳想在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列。