请教高手，下面代码看不懂。。

Myr = sh.[i65536].End(xlUp).Row
Arr = sh.Range("a10:ab" & Myr)
For j = 1 To UBound(Arr)
Set r2 = Sht1.Rows(4).Find(nm1, , , 1)
col = r2.Column
Set r1 = Sht1.Range("d:d").Find(Arr(j, 10))

Excel的VBA代码

Myr是取得有数据的最后一行(excel行数为65535)的行数

Arr是指代A10到AB列最后一行的单元格区间

用for循环遍历Arr里的单元格

r2是用find函数在Arr区间查找 得到的单元格

col是r2的列数

r1是在D列查找Arr中的第j行第10列的值

同问

咱有经验，你抄作业只管往上抄就是了！老师也是人，他也想耍，作业都不怎么会好好检查。不过前提是不能让老师先改你的作业，越在后面改，老师越会粗心！