[已解决]求大神指教，拜谢！！

盼您帮助

查找两列相同的元素，请大神指教，拜谢了！

最佳答案

月排行榜 / 总排行榜

eennoo

2022-6-24 01:18

1. Sub main()
   
2. 
   
3. For i = 1 To 12
   
4. If Range("E7").Offset(0, i) = Range("C7") Then
   
5. k = Range("E7").Offset(0, i)
   
6. For j = 1 To 8
   
7. If Range("E7").Offset(0, i).Offset(j, 0) = Range("C7").Offset(j, 0) Then
   
8. Range("E7").Offset(0, i).End(xlDown).Offset(1, 0) = k & Range("C7").Offset(j, 0)
   
9. 
   
10. End If
    
11. Next
    
12. End If
    
13. Next
    
14. End Sub
    
15. 
    
16. 
    

复制代码

跳转到最佳答案楼层

eennoo

1. Sub main()
   
2. 
   
3. For i = 1 To 12
   
4. If Range("E7").Offset(0, i) = Range("C7") Then
   
5. k = Range("E7").Offset(0, i)
   
6. For j = 1 To 8
   
7. If Range("E7").Offset(0, i).Offset(j, 0) = Range("C7").Offset(j, 0) Then
   
8. Range("E7").Offset(0, i).End(xlDown).Offset(1, 0) = k & Range("C7").Offset(j, 0)
   
9. 
   
10. End If
    
11. Next
    
12. End If
    
13. Next
    
14. End Sub
    
15. 
    
16. 
    

复制代码

盼您帮助

eennoo 发表于 2022-6-24 01:18

谢谢指教，谢谢！！