Excel实现A列固定宽度分列并去重，添加工作表按钮供全员使用

需求回顾 #

• CSV文件所有数据集中在A列
• 需要提取A列文本的前三位数字（按固定宽度截取）
• 去除提取后结果的重复值，保留唯一值
• 通过工作表按钮触发脚本，确保所有用户的工作簿副本都能正常使用

正确VBA代码实现 #

Sub Extract3DigitsAndRemoveDuplicates()
    Dim ws As Worksheet
    Set ws = ActiveSheet ' 也可指定具体工作表，比如Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 1. 提取A列每个单元格的前3位字符，临时存到B列避免覆盖原数据
    ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=LEFT(RC[-1],3)"
    
    ' 2. 将公式结果转为静态值，防止后续操作出错
    ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).Value = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).Value
    
    ' 3. 去除B列重复值，有表头就把xlNo改成xlYes
    ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlNo
    
    ' 4. 可选：将处理结果移回A列，删除临时B列
    ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).Value = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row).Value
    ws.Columns("B").Delete
    
    ' 可选：清空A列多余空行
    ws.Range("A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 & ":A300").ClearContents
End Sub

代码说明 #

• 动态范围适配：用End(xlUp)自动定位A列最后一行数据，替代固定的A1:A300，避免遗漏或处理无效空行
• 直接截取固定宽度：用LEFT函数直接提取前3位，比TextToColumns更贴合仅保留前3位的需求，无需完整分列操作
• 明确去重参数：给RemoveDuplicates指定列和表头参数，避免默认值引发的错误
• 安全过渡处理：先在临时列B完成提取和去重，再移回A列，防止操作中丢失原数据

原代码问题分析 #

1. Excel Script与VBA不兼容：Excel Script是基于TypeScript的在线脚本，语法和VBA完全不同，无法直接粘贴运行
2. 原VBA代码的缺陷：
   • Range("A1:A300").TextToColumns缺少固定宽度、目标列等必要参数，运行会弹出手动设置对话框，无法自动完成
   • Range("A1:A300").RemoveDuplicates未指定Columns参数，VBA执行时会报错

工作表添加按钮步骤 #

1. 打开Excel开发工具选项卡（未显示的话，在「文件→选项→自定义功能区」勾选“开发工具”）
2. 点击「插入」→ 选择「按钮（窗体控件）」
3. 在工作表上拖拽绘制按钮，选择刚才创建的Extract3DigitsAndRemoveDuplicates宏
4. 修改按钮名称为“提取三位数字并去重”，完成设置

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