（图4）
○ 方法2. 函数法
上述方法是手动去重，如果名单发生变化，还需要再次去重。如果要实现去重的自动化，可以借助于函数来实现。
定位到K2单元格并输入公式“=OFFSET(B$2,MOD(ROW(A1)-1,8),INT((ROW(A1)-1)/8))”，然后下拉填充到单元格显示数字0为止（图5）。
（图5）
公式解释：
先使用MOD函数对“（行数-1）”值和除数“8”（对应原始数据包含老师名单的行数，如本例是8行，第2行-第9行）取余，然后将其作为OFFSET函数偏移的列号。因为原始数据为8行，所以每8行会向右偏移1列引用。接着使用INT函数对“（行数-1）/8”数值向下取整，将其作为OFFSET函数偏移的行号数据。引用的基准是B$2（行锁定），这样下拉公式时，OFFSET就会在K列依次引用B2:H10区域中的数据。
继续定位到L2单元格，输入公式“=IFERROR(INDEX($K$2:$K$100,MATCH(,COUNTIF($L$1:L1,$K$2:$K$100),)),"")”，然后定位到公式地址栏，按下“Ctrl Shift Enter”组合键完成数组公式的输入，接着下拉填充公式，直到单元格显示为0，完成去重名单的提取（图6）。
（图6）
公式解释：
先使用COUNTIF函数以“$L$1:L1”为计数条件，计数区域是“$K$2:$K$100”。这里K100数字至少要比图5中OFFSET函数引用时出现的数字0单元格行号的数字要大。然后将这个计数作为MATCH函数的引用数值，再将其作为INDEX函数引用的行号值。最后在外层嵌套IFERROR函数，对没有引用数值的单元格显示为空。这样作为数组公式使用时，就可以对$K$2:$K$100区域的数据完成去重操作。
○ 方法3. VBA法
多行多列数据去重，实际操作是先将数据组成一列，然后去重，在VBA中可以借助于RemoveDuplicates函数来快速实现。
先到“https://share.weiyun.com/BYDj7Qhx”下载所需的代码，接着按下“Alt F11”快捷键打开VBA编辑窗口，依次点击“插入→模块”，将下载的代码粘贴到代码框中（图7）。
（图7）
代码解释：
先设置行列变量，列内容是第2列→第8列（即B:H列），行内容是第2行→第9行（请根据实际单元格内容设置）。然后遍历这些行列中的内容，将其提取到I列中保存，最后使用RemoveDuplicates函数对I列的内容去重。
返回到Excel窗口中，依次点击“开发工具→宏→去重”，点击“执行”，这样VBA代码就会将所有老师的数据复制到I列并完成去重操作了（图8）。CF
