用于计算唯一值的宏

Question

我使用下面的代码来计算excel中唯一数字的数量，但我遇到了一个问题。

For a = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row

lr = Sheet1.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

Sheet1.Cells(a, 2) = WorksheetFunction.CountIf(Sheet1.Range("A:A"), Sheet1.Cells(lr, 1))

当我使用相同数字的16位数字时，它会给我错误的更新。它只是看到前15位并计算唯一值。

例如：对于数字，1323816295518024它应该返回2而对于数字1323816295518029它应该返回3.但是，它对于1323816295518024和1323816295518029都返回5.