运行时错误1004无法获取工作表的countif属性

Question

下面是我的代码：

Sub yenilikleri_ekle()

    Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long, rng As Range
    Set sh1 = ThisWorkbook.Worksheets("Input")
    Set sh2 = ThisWorkbook.Worksheets("Ayarlar")
    lr = sh1.Cells(Rows.Count, 2).End(xlUp).Row
    Set rng = sh1.Range("B5:B" & lr)
    For Each c In rng
        If WorksheetFunction.CountIf(sh2.Range("A:A"), c.Value) = 0 Then
            sh2.Range("A" & sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1) = c.Value

        End If
    Next
End Sub

它所做的是匹配sh1和sh2单元格。 如果不在sh2 ，则将Cell.Value添加到sh2 。 该代码可以正常工作，直到单元格中的文本超过255个字符为止。 （直到很长的文字）

当文本很长时，它返回一个错误"Run-time error 1004: Unable to get countif property of the worksheet" ，这对我来说毫无意义。 我无法解决问题2天，需要您的帮助。 我为c添加了Dim ，但没有更改，仍然是相同的错误。 我改为CountA但随后变得无响应。

在此先感谢您的帮助。

Answer 1

如果目标是在ThisWorkbook.Worksheets("Ayarlar").Range("A:A")没有重复的ThisWorkbook.Worksheets("Input").Range("B:B")和ThisWorkbook.Worksheets("Ayarlar").Range("A:A")之前为空，那么这应该可以工作：

With ThisWorkbook
    .Worksheets("Input").Columns("B:B").Copy Destination:=.Worksheets("Ayarlar").Range("A1")
    .Worksheets("Ayarlar").Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End With

问候

阿克塞尔