Excel 之查找特定字符所在行列的简易方法

使用 eviews 处理面板数据时，需要分全国、八大经济区来分别估计，一个省份一个省份的找出数据再输入 eviews 实在太麻烦了，而且本人也不太会用 eviews 操作，只能简单从 excel 着手。
如有那位朋友知道如何根据 eviews 已有时间序列直接创立 pool 文件，恳请指点。

首先设定变量以及范围，其中 A18:AD18 为各省市名称所在范围。

Dim xxx As Object
Dim xx As Object
Set xxx = Sheet2.Range("A18:AD18")

设定数组，并将东北综合经济区的省份输入其中

Dim yy_northeast(1 To 3)
yy_northeast(1) = "辽宁"
yy_northeast(2) = "吉林"
yy_northeast(3) = "黑龙江"

搜索符合条件的值，并将对应省份的时间序列摘取出来，放到东北综合经济区对应的E列下面。

For i = 1 To 3
yy_temp = yy_northeast(i)

For Each xx In xxx
If xx = yy_temp Then
y = xx.Column
End If
Next xx

For j = 1 To 14
Sheet2.Cells(35 + 14 * (i - 1) + j, 5) = Sheet2.Cells(18 + j, y)
Next j

Next i

得到输出结果