查找单元格和复制格式停止工作

Question

我有一个简单的电子表格，其中一张表中包含日期和条目列表，另一张表中包含日历。 当我第一次创建它时，我将以下代码放在一起以从工作表 1 中查找日历日期，并将我在工作表 1 中设置的条件格式复制到日历中的单元格中。 它工作正常，直到我在工作表 1 中添加了更多条目，然后突然间我得到一个运行时错误“91”，我终生无法理解它为什么停止工作。 我是编码新手，所以我可能缺少一些明显的东西。

这是我到目前为止所拥有的

Sub find_and_paste_formatting()
    'On Error Resume Next (had to remove when it stopped working to find the error)'

    Dim Date_Row As Long
    Dim Date_Col As Long

    'Sheet with dates to use in find
    Table1 = Sheet2.Range("A5:G5").Cells
    
    'The cell from where you need to start populating the formatting
    Date_Row = Sheet2.Range("A6").Row
    Date_Col = Sheet2.Range("A6").Column

    For Each cl In Table1
        'Just a test to see if it returns the correct cell reference
        Sheet2.Cells(Date_Row, Date_Col) = Sheet1.Range("A1:D20").Find(cl, LookIn:=xlValues, Lookat:=xlWhole, After:=Range("A1"), SearchOrder:=xlRows).Address

        'change the formatting to match the sheet 1 conditional formatting
        Sheet2.Cells(Date_Row, Date_Col).Interior.ColorIndex = Sheet1.Range(Sheet1.Range("A1:D20").Find(cl, LookIn:=xlValues, Lookat:=xlWhole, After:=Range("A1"), SearchOrder:=xlRows).Address).DisplayFormat.Interior.ColorIndex
    
        Date_Col = Date_Col + 1    
    Next cl
End Sub

Answer 1

我很生气，然后从另一个角度对它进行了另一次破解。 寻找日期是个问题。 看到这篇文章 [https://stackoverflow.com/questions/45639660/range-find-on-a-date-that-is-a-formula]，一切都很完美。 感谢@SpectralInstance 的帮助

Sub Find_dates_copy_formatting()
    
    Dim findDate As Date
    Dim R As Range
    Dim C As Range
    Dim WS As Worksheet
    Dim n As Integer
    Dim m As Integer
    

Set WS = Worksheets(1)
Set R = WS.Range("C1:C261")

For m = 1 To 52

For n = 2 To 6


findDate = Sheet2.Cells(3 * m - 1, n).Value

For Each C In R
    If C.Value2 = CDbl(findDate) Then
    Sheet2.Cells(3 * m, n).Interior.ColorIndex = C.DisplayFormat.Interior.ColorIndex
    Sheet2.Cells(3 * m + 1, n).Interior.ColorIndex = C.DisplayFormat.Interior.ColorIndex

End If
Next C

Next n
Next m

End Sub