Sub 员工状态()
Dim A
Dim i As Integer
Dim arr
Sheet2.Range("A3:A65536").Select
arr = Split("在职|离职", "|")
For i = 0 To UBound(arr)
If i = 0 Then
A = arr(i)
Else
A = A & "," & arr(i)
End If
Next
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=A
End With
End Sub |
|
|
|
评论
直达楼层