年终汇报数据 | WPS表格——VBA系列之Filter应用案例(基础篇)

⭐场景：Filter的具体应用。

📢具体要求：2026年公司员工的姓名以及对应部门如下："市场部:贾一", "市场部:张三", "市场部:李四", "市场部:杨都一", "市场部:王五", "市场部:江虎一", "生产部:赵六", "仓储部:蒋天燕", "行政部:刘八", "市场部:杨一户", "市场部:闫十", "市场部:何七君"。使用VBA返回不是市场部的员工姓名以及对应的部门。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test()

Dim i As Variant

Dim j As Variant

i = Array("市场部:贾一", "市场部:张三", "市场部:李四", "市场部:杨都一", "市场部:王五", "市场部:江虎一", "生产部:赵六", "仓储部:蒋天燕", "行政部:刘八", "市场部:杨一户", "市场部:闫十", "市场部:何七君")

j = Filter(i, "市场部", False)

Range("A2").Value = Join(j, "、")

With Range("A2")

.Borders.LineStyle = xlContinuous

.Font.Bold = True

.Font.ColorIndex = 3

.Interior.Color = vbGreen

End With

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!