求多表不重复值为什么方法2不行？

l沙漠中的绿洲f

Sub 求多表不重复值1()
Set d = CreateObject("scripting.dictionary")
On Error Resume Next
For Each sht In Sheets
    s = sht.Name
    If sht.Name <> "品名" Then
        r = sht.Cells(Rows.Count, "a").End(xlUp).Row
        arr = sht.Range("a1:a" & r)
        For i = 1 To UBound(arr)
            d.Add arr(i, 1), ""
            
        Next i
    End If
Next sht
Sheets("品名").[a1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
End Sub
Sub 求多表不重复值2()
Set d = CreateObject("scripting.dictionary")
On Error Resume Next
For Each sht In Sheets
    s = sht.Name
    If sht.Name <> "品名" Then
        lastcell = sht.Cells(Rows.Count, "a").End(xlUp)
        arr = sht.Range([a1], lastcell)
        For i = 1 To UBound(arr)
            d.Add arr(i, 1), ""
            
        Next i
    End If
Next sht
Sheets("品名").[a1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
End Sub
请问大侠：下面的表达方式不是一样吗？
1、 r = sht.Cells(Rows.Count, "a").End(xlUp).Row
        arr = sht.Range("a1:a" & r)
2、lastcell = sht.Cells(Rows.Count, "a").End(xlUp)
        arr = sht.Range([a1], lastcell)

xd3210

第1种是左上角与右下角两个单元格围成的区域，第2种是两个单元格

xiangbaoan

感觉要这样
set lastcell = sht.Cells(Rows.Count, "a").End(xlUp)
补充：

引用连续区域的RANGE属性：
1、RANGE(单元格区域)  '如range("a1:b4")，这里好比你的第一种方法；
2、RANGE(左上角单元格  ,  右下角单元格)  '如range("a1"  ,  "b4")，这里好比你的第二种方法，请注意，这里的单元格是 对象 ，若要用变量，则要用 set 为它赋值，如  set lastcell = sht.Cells(Rows.Count, "a").End(xlUp)，可以不通过变量直接使用，应该这样了：
arr = sht.Range(sht.[a1] ,  sht.Cells(Rows.Count, "a").End(xlUp))