如何解决将数据与两个工作表进行比较,并在Excel VBA中打印匹配的值
我是Excel VBA平台的新手,并且自学成才。我正在同一工作簿中的两个名为“耦合器旋转矩阵”和“计算输入链接”的工作表中工作。
- “耦合器旋转矩阵”具有C到DI列(110列)和4到1800行的数据。
- “计算输入链接”的M列中的数据来自第2行至第111行。
我需要编写一个宏来实现以下目标:
- 比较从C4到C184(“耦合器旋转矩阵”表)与M2(“计算输入链接”表)中的值
- 如果值匹配,那么我需要将数据打印在C列第185行(“耦合器旋转矩阵”)下,如果另一个值匹配,则应将其打印在C列第186行,依此类推。
- 接下来,我需要移至D列(“ Coupler Rotation Matrix”表),并对照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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。