VBA编程练习04. 在多个单元格区域查找多个数

学习Excel技术，关注微信公众号：

excelperfect

本次练习题

如下图1所示的工作表，在单元格区域A2:F2中放置的是要查找的数值；在列H至列BF、行9至行30是被查找的区域，这个区域分17个小区域，每个区域3列，其单元格中要么为空，要么放置着一些数值。

图1

现在，要在这17个小区域中查找单元格区域A2:F2中的值并将找到的数值的个数输入到其下方第32行的单元格中。如何使用VBA代码实现？

VBA代码

先给出代码，再细细解释。代码如下：

Sub VBAEx04()

Dim rng(17) As Range

Dim i As Integer, j As Integer

Dim iCount As Integer

For i = 0 To 16

Set rng(i) =Range("H10").Offset(, i * 3).Resize(22, 3)

Next i

For i = 0 To 16

iCount = 0

For j = 1 To 6

iCount = iCount +WorksheetFunction.CountIf(rng(i), Cells(2, j))

Next j

Cells(32, 9 + i * 3).Value = iCount

Next i

End Sub

问题表面上看起来很复杂，但代码却并不多。

其中，代码：

For i = 0 To 16

Set rng(i) =Range("H10").Offset(, i * 3).Resize(22, 3)

Next i

将17个小区域赋值给变量rng(i)。因为每3列一个小区域，所以很容易找到规律。以第1个小区域左上角为基点，每次循环向右偏移3的倍数列，移到每个小区域的左上角，然后将区域扩展到22行3列，即得到每个小区域。

代码：

WorksheetFunction.CountIf(rng(i),Cells(2, j))

使用工作表函数COUNTIF函数来统计单元格区域中指定值的数量。Cells(2,j)分别查找A2至F2中的数值，将找到的数值的个数累加到变量iCount中。最后得到每个小区域中包含的数值的个数，然后将得到的个数值输入到第32行中相应单元格中。

代码中的外层循环遍历每个小区域，内层循环遍历A2:F2中的值。

小结

1.不要被工作表的表面所迷惑，要从中找到规律。

2.有时候，灵活使用工作表函数不失为一个好技巧。

下面是代码的图片版：

你有更好的代码吗？