excel vba 嵌套循环比较两列单元格数据，提示“数据类型不匹配”

oathi

如上图，我想把D列的内容根据标题自动匹配到B列中。
下面是我的代码：

1. 
   

复制代码

1. Sub qxyh()
   
2.     Dim cell As Range, cell2 As Range
   
3.    
   
4.         For Each cell In Worksheets(2).Cells(1, 1).CurrentRegion.Columns("a:a")
   
5.             For Each cell2 In Worksheets(2).Cells(1, 1).CurrentRegion.Columns("c:c")
   
6.                 If cell.Value = cell2.Value Then
   
7.                     cell.Offset(0, 1).Copy Destination:=cell2.Offset(0, 1)
   
8.                 End If
   
9.             Next cell2
   
10.         Next cell
    
11.    
    
12. End Sub
    
13. 
    

复制代码

运行至If cell.Value = cell2.Value Then时，提示“错误13：类型不匹配”，请大神帮我看看是什么原因？
逻辑原因还是语法原因？

不知道为什么

在你代码基础上修改了下。如图

不得不说你得代码效率是很低的！