将数据与两个工作表进行比较，并在Excel VBA中打印匹配的值

我是Excel VBA平台的新手，自学成才。我在同一个工作簿中处理两个名为“耦合器旋转矩阵”和“计算输入链接”的工作表

• “耦合器旋转矩阵”的数据来自第C列至第DI列（110列）和第4行至第1800行
• “计算输入链接”在第2行到第111行的M列中有数据

我需要编写一个宏来实现以下目标：

比较从C4到C184（“耦合器旋转矩阵”表）的值与M2（“计算输入链接”表）中的值

如果值匹配，则我需要在C列第185行（“耦合器旋转矩阵”）下打印数据。如果另一个值匹配，则应在C列第186行打印数据，依此类推

接下来，我需要转到D列（“耦合器旋转矩阵”表），并对照M3检查值D4到D1804。如果存在匹配项，则应在D 185、186等中打印数据

我不确定如何打印匹配的值，因此我尝试创建一个新的工作表，只打印匹配的值-但这似乎不起作用

下面是我提出的代码，但在运行它时，我发现了各种各样的错误

Sub forloop()

Dim irow As Integer
Dim icolumn As Integer
Dim Value As Double
Dim checkvalue As Double


For irow = 1 To 110
   
   Worksheets("Coupler Rotation matrix").Columns(irow).Select
   
   For icolumn = 4 To 184
     
      Value = Worksheets("Coupler Rotation matrix").Rows(icolumn).Value
     

        Dim i As Integer
         For i = 2 To 111
            checkvalue = Columns("M" & i).Value
            If Value = checkvalue Then
           
            Sheets("Coupler Rotation Matrix").Columns(M & i).Copy 
            Sheets("sheet4").Columns(B & i).PasteSpecial

           End if

        Next i

   Next icolumn
   
Next irow

End Sub

---

您具体遇到了什么错误？运行时错误1004；运行时错误13类型不匹配错误等