VBA中重新赋值Range时区域内容被删除的原因及Range赋值合规性咨询

嗨，刚接触VBA的话踩这个坑太正常啦！我来帮你捋清楚问题出在哪～

核心问题：混淆了「对象赋值」和「单元格内容赋值」 #

你出问题的代码行：

supervisor_range = .Range(Cells(2, 1), .Range("A" & .Rows.Count).End(xlUp))

这里没有用Set关键字，VBA会把它当成把右边Range的内容写入左边Range对应的单元格，而不是更新supervisor_range这个对象的引用。

举个例子：如果原来的supervisor_range是A2:A10，新的.Range(...)是A2:A5，执行这行后，A2:A5会保留内容，但A6:A10会被清空（因为新Range没有这些行的内容），这就是你看到名称被删除的原因。

正确的Range对象重新赋值方式 #

在VBA中，给对象类型的变量（比如Range、Worksheet）赋值，必须使用Set关键字！你第一次赋值的时候用了Set，但第二次漏掉了，这才是关键错误。

另外还要注意：在With supervisorsheet块里，所有引用这个工作表的对象都要加.，比如.Cells(2,1)，否则会默认引用当前活动工作表，可能导致意想不到的错误。

修正后的完整代码 #

Sub remove()
 Dim supervisorsheet As Worksheet
 Set supervisorsheet = Worksheets("supervisor")
 Dim supervisor_range As Range
 Dim cell As Range
 Dim last_row As Long ' 建议显式声明变量类型，避免变体类型的问题

 last_row = supervisorsheet.Cells.SpecialCells(xlCellTypeLastCell).Row
 Set supervisor_range = supervisorsheet.Range(supervisorsheet.Cells(2, 1), supervisorsheet.Cells(last_row, 1))
 supervisor_range.RemoveDuplicates Columns:=1, Header:=xlNo

 With supervisorsheet
     ' 加上Set，并且给Cells加上.前缀
     Set supervisor_range = .Range(.Cells(2, 1), .Range("A" & .Rows.Count).End(xlUp))
 End With
End Sub

额外小提示 #

• 养成显式声明变量类型的习惯（比如Dim last_row As Long），可以避免很多隐式类型转换的问题；
• 使用With块时，所有属于该对象的成员都要加.，确保引用的是目标工作表，而不是活动表；
• 如果只是想获取去重后的最后一行，其实可以不用重新赋值Range，直接用.Range("A" & .Rows.Count).End(xlUp).Row就能拿到行号，按需使用即可。

内容的提问来源于stack exchange，提问作者R1451