Excel VBA语法错误和编译问题

我试图开发一个简单的复制粘贴值，其中macros将填充到单元格中的date，search下一张表中的date，并将值从A2：X2粘贴到finddate的位置。

Sub Copy_PasteVal（）

Dim dDate As Range Dim shtTrack As Worksheet Dim shtData As Worksheet Dim c As Range Dim DestCell As Range Set shtdata = Sheets(“Daily Total”) Set shtTrack = Sheets("Overall Daily Tracking") Set dDate = shtData.Range(“A2”) Worksheets("shtData").Range("A2:X2").Copy With Worksheets(shtTrack).Range("a1:a1000") Set DestCell = .Find(dDate, LookIn:=xlValues) End With Worksheets(“shtTrack”).Range(DestCell).PasteSpecial Paste:=xlPasteValues 

结束小组

这不是编译，我希望有一些大师可以帮助我找出在VBA编码！

Answer 1

编辑：我可能会倒退？ 此外，不知道如果你打算消灭列A …

 Dim dDate Dim shtTrack As Worksheet Dim shtData As Worksheet Dim c As Range Dim DestCell As Range Set shtData = Sheets("Daily Total") Set shtTrack = Sheets("Overall Daily Tracking") dDate = shtData.Range("A2").Value Set c = shtData.Range("A2:X2") With shtTrack.Range("a1:a1000") Set DestCell = .Find(dDate, LookIn:=xlValues) If Not DestCell Is Nothing Then r = DestCell.Row Else Exit Sub End If End With With shtTrack .Range(.Cells(r, 1), .Cells(r, 24)).Value = c.Value End With