excel使用VBA将每个单元数据最后三位批量加删除线

在Excel中使用VBA编写宏来批量给每个单元格的数据添加或删除下划线（即删除线），你可以按照以下步骤操作：

首先，你需要打开Visual Basic for Applications (VBA)编辑器。点击菜单栏的"Developer" > "Visual Basic" 或者按快捷键 `Alt + F11`。

然后，在VBA编辑器中，会看到一个新的窗口，你需要创建一个新的模块。右击空白区域，选择 "插入" -> "Module"。

在新模块中，粘贴下面的VBA代码。这个代码片段是一个Sub过程，它会遍历选定范围内的每个单元格，并根据你的需求添加或删除删除线：

Sub AddDeleteLineToCells()
    Dim rng As Range
    Dim cell As Range
    
    ' 如果没有选中范围，则默认选中当前工作表的所有单元格
    If Selection.Count = 0 Then
        Set rng = ThisWorkbook.Worksheets(1).UsedRange
    Else
        Set rng = Selection
    End If
    
    For Each cell In rng
        Select Case True ' 根据需求切换条件
            Case Right(cell.Value, 3) = "_"
                cell.Font.Underline = xlNone ' 删除删除线
            Case cell.Value Like "*_*" ' 添加删除线到末尾有下划线的
                cell.Font.Underline = xlUnderlineSingle
        End Select
    Next cell
End Sub

保存这段代码后，你可以通过以下步骤运行它：
1. 单击工具栏上的 "宏" 按钮（形状像一个小人形）或直接按 `F5` 键。
2. 在弹出的 "宏" 对话框中，找到你刚才创建的 "AddDeleteLineToCells" 宏并单击 "Run"。