如何改写无选择操作的VBA代码：复制无表头的K列数据并去重

完全理解你的痛点！摆脱.Select和.Activate确实是写出高效、稳定VBA代码的核心原则——这些操作不仅拖慢运行速度，还容易因为意外切换工作表导致代码报错。咱们一步步把你的代码改成专业的无选择写法：

核心优化思路 #

• 用工作表变量明确指代目标工作表，避免依赖当前激活的工作表
• 直接定位数据范围，彻底抛弃所有.Select操作
• 用从底部向上查找的方式（xlUp）定位最后一行数据，比xlDown更可靠（不会因为中间空行导致范围截断）

完整优化代码 #

Sub CopyAndDeduplicate()
    ' 定义工作表变量，让代码更清晰、更稳定
    Dim shLASReport As Worksheet
    Dim shCalc As Worksheet
    Set shLASReport = ThisWorkbook.Sheets("LAS Report")
    Set shCalc = ThisWorkbook.Sheets("Calc")
    
    ' 定位LAS Report表中K列从K2开始的所有非空数据
    Dim sourceRange As Range
    Set sourceRange = shLASReport.Range("K2", shLASReport.Cells(shLASReport.Rows.Count, "K").End(xlUp))
    
    ' 直接复制到Calc表的B19起始位置，无需选中任何区域
    sourceRange.Copy Destination:=shCalc.Range("B19")
    
    ' 定位Calc表中B列从B19开始的所有非空数据，执行去重
    Dim targetRange As Range
    Set targetRange = shCalc.Range("B19", shCalc.Cells(shCalc.Rows.Count, "B").End(xlUp))
    targetRange.RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

代码细节解释 #

• shLASReport.Rows.Count：获取工作表的总行数（不同Excel版本行数不同，用这种写法兼容所有版本）
• .End(xlUp)：从指定单元格（这里是K列最后一行）向上查找第一个非空单元格，确保我们能获取到所有有效数据，不会漏掉中间有空白的情况
• Destination参数：Copy方法支持直接指定目标位置，完全不需要先选中再粘贴
• 全程没有任何.Select/.Activate操作，代码运行更快，也不会因为用户手动切换工作表而中断

备注：内容来源于stack exchange，提问作者Jordan