用EXCEL快速定位盛大安全卡的内容

　　盛大在安全方面，有两点是要比支付宝、财付通都要做得好的：
　　第一就是只要登录了，不管是进入旗下的起点中文，还是进入盛付通充值，都会以“掌上彩虹”的名义向手机发出短信提示；
　　第二就是登录时，除了打密码之外，还有一张安全卡。此卡由120格（15*8）的密码矩阵组成，矩阵中的每一个格子中随机设有两位阿拉伯数字，并且每一个格子都对应有一个坐标。验证时，必须按系统要求正确输入指定坐标上的数字才能通过验证。每次验证都是随机指定3个坐标。
　　安全是有了，不过有些麻烦。要聚精会神地定位，横平竖直稍微看错的话，就会前功尽弃。这种苦力活，还是召唤EXCEL来作吧。

A	B	C	D	E	F	G	H
1	2	3	4	5	6	7	8
9	10	11	12	13	14	15	16
17	18	19	20	21	22	23	24
25	26	27	28	29	30	31	32
33	34	35	36	37	38	39	40
41	42	43	44	45	46	47	48
49	50	51	52	53	54	55	56
57	58	59	60	61	62	63	64
65	66	67	68	69	70	71	72
73	74	75	76	77	78	79	80
81	82	83	84	85	86	87	88
89	90	91	92	93	94	95	96
97	98	99	100	101	102	102	104
105	106	107	108	109	110	111	112
113	114	115	116	117	118	119	120

　　为了简便起见，假设是从Sheet1工作表的A1到H15单元格，填充这些数字的。而登录时所给出的三个单元格，则分别填写在A17、A18、A19内。
　　比如：某此登录，盛大要求给出安全卡C1、B3、D2这三个单元格的数字，则只需要在A17单元格内填写“C1”、在A18单元格内填写“B3”、在A19单元格内填写“D2”，然后按下宏（巨集）的执行命令，则那三个目标单元格的背景颜色将会变成红色，且其数字将会填充到B17/B18/B19单元格中。
　　那么这是如何做到的呢？其实一点都不难。按下Ctrl+F11，打开VBA编辑窗口，然后输入以下代码：
Sub GetCardNum()
    REM 先把所有单元格的背景颜色清空
    Range("A1:H15").Interior.Pattern = xlNone  
    For i = 1 To 3
        Var = Cells(16 + i, 1)
        Range("B" + Trim(Str(16 + i))).Value = Range(Var).Text
        REM 取哪个单元格的内容，哪个单元格的背景颜色就变成红色
        Range(Var).Interior.Color = 255  
    Next
End Sub

以后在开发环境中按F5，或者将此宏关联一个热键，即可做到了。