0

我正在调试 VBA 宏并收到错误消息“运行时错误。'1004'：无法粘贴信息，因为复制区域和粘贴区域的大小和形状不同。”

这是我的代码：

   Sub Test()
Dim s1 As Worksheet, s2 As Worksheet
Dim m As Long, i As Long, n As Long
Dim Val As Variant

Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Sheet2")
n = 1
m = 1
Val = s1.Range("B1").Value

For i = 1 To Columns.Count
    If s2.Cells(1, i).Value = Val Then
        s2.Cells(1, i).EntireColumn.Copy Destination:=s1.Range("B4")
        m = m + 1
        
    End If
Next i
End Sub

请帮忙

表 1：
表 1

表 2： 表 2

编辑：

我按照 BigBen 的建议尝试了 INDEX/MATCH，它起作用了这是公式： =INDEX(Sheet2!$A2:$E2,MATCH(Sheet1!$B$1,Sheet2!$A$1:$E$1,0))

但是，如果有人可以帮助我编写 VBA 代码，那就太好了。

谢谢

4

0 回答 0