Sub a()Dim i&, j&, k&k = 1Range("g:iv").ClearRange("a1:d1").Copy Range("g1") '首行复制到G1:J1For i = 2 To [a65536].End(3).Row'从第2行开始用FOR循环
If Not Range("g1:g" & [g65536].End(xlUp).Row).Find(Range("a" & i), lookat:=xlWhole) Is Nothing Then '在G列中查找是否有A列第I个单元格的内...