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

⭐场景：CurrentRegion应用。

📢具体要求：根据给定的2026年公司员工信息表，使用VBA填充颜色，最终效果如右侧所示。

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

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

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

Option Explicit

Sub test()

Dim i As Long

Dim j As Long

j = Range("A1").CurrentRegion.Rows.Count

For i = 1 To j

If i Mod 2 = 0 Then

Range("A" & i & ":H" & i).Interior.Color = vbYellow

Else

Range("A" & i & ":H" & i).Interior.Color = vbCyan

End If

Next i

End Sub

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

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