我希望有人可以帮助我 . 我有以下代码在运行时返回错误消息 . 我有一个报告,我每小时导入Sheet2 . 我需要在单元格D16中取值并复制它 . 然后我需要将Sheet2!A2与Sheet3上的第1行中的单元格匹配,并将数据粘贴到相应的列下 .
我将不胜感激任何意见或建议来解决这个问题 .
提前致谢!
Sub CopyPaste()
Dim ws1 As Worksheet, ws2 As Worksheet, rng As Range, frng As Range
Set ws1 = Worksheets("Sheet2")
Set ws2 = Worksheets("Sheet3")
Set rng = ws1.Range("D16")
Set frng = ws2.Rows(1).Find(What:=Range("Sheet2!A2"), After:=Range("Sheet3!A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
rng.Copy
frng.Offset(1, 0).PasteSpecial (xlPasteValues)
Application.CutCopyMode = 0
结束子
1 回答
我会做这个:
完全匹配使用
res = Application.Match(ws1.Range("A2"), ws2.Range("1:1"), 0)