在excel VBA代码中停止数据复制，将数据从一张纸复制到另一张

Question

我有下面的代码，它会记录每张表中最繁忙的小时，并将其添加到另一张。

Sub DailySales() 
Dim dailySht As Worksheet 'worksheet storing latest   store activity 
Dim recordSht As Worksheet 'worksheet to store the highest period of each day 
Dim lColDaily As Integer ' Last column of data in the store activity sheet 
Dim lCol As Integer ' Last column of data in the record sheet 
Dim maxCustomerRng As Range ' Cell containing the highest number of customers 
Dim CheckForDups As Range ' Used to find duplicate dates on the record Sheet 
Dim maxCustomerCnt As Long ' value of highest customer count 

Set dailySht = ThisWorkbook.Sheets("Supermarket Data") 

Set recordSht = ThisWorkbook.Sheets("Record Data") 
With recordSht 
    lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column 
End With 
With dailySht 
    lColDaily = .Cells(1, .Columns.Count).End(xlToLeft).Column 
    maxCustomerCnt = Application.Max(.Range(.Cells(2, 1), .Cells(2, lColDaily))) 
    Set maxCustomerRng = .Range(.Cells(7, 1), .Cells(7, lColDaily)).Find(What:=maxCustomerCnt, LookIn:=xlValues) 
    If Not maxCustomerRng Is Nothing Then 
     Set CheckForDups = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(x1ToLeft).Column).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:x1Values) 
     If CheckForDups Is Nothing Then maxCustomerRng.EntireColumn.Copy recordSht.Cells(1, lCol + 1) 
    End If 
End With 

Set maxCustomerRng = Nothing 
Set dailySht = Nothing 
Set recordSht = Nothing 

End Sub 

我添加了以下内容来防止数据重复，即它不应该在一天内记录多个数据？

Set CheckForDups = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft).Column).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:=xlValues) 
      If CheckForDups Is Nothing Then maxCustomerRng.EntireColumn.Copy recordSht.Cells(1, lCol + 1) 

但是，当我运行代码时出现“编译错误：语法错误”。下面的代码行突出显示：

Set CheckForDups = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(x1ToLeft).Column).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:x1Values) 

这是第一张表：

Customer data 7:00:00 AM 7:30:00 AM 8:00:00 AM 8:30:00 AM 9:00:00 AM 
Number of customers 33   37   110   250  84 
Amount spent  65   50   70   85  60 
Average time spent 12   10   8   17  10 

有人可以告诉我什么，我做错了吗？

Answer 1

你在你的代码中的一些错别字：x1Left应该xlLeft，x1Values应xlValues，并命名参数应使用:=代替:指定。

但整个语句是不正确的，这是它的方式应该是：

Set CheckForDups = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)).Find(What:=maxCustomerRng.Offset(-1, 0).Value, LookIn:=xlValues) 

在第二Range参数你通过一些列，在那里你打算通过一个细胞。因此，您不需要获取.Column属性，只需删除.Column即可获取单元格。