宏指令：删除单元格中所有＜div之后的内容

最近在清洗数据，由于是从代码库里拉出的内容，需要进行清洗html标签，就整理了如下指令：

宏指令1：删除单元格中所有<div之后的内容

Sub RemoveDivAndAfter()
    Dim rng As Range
    Dim cell As Range
    Dim divPos As Integer ' 用于记录 "<div" 首次出现的位置
    
    ' 检查是否选中了单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中需要处理的单元格区域！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历选中区域的每个单元格
    For Each cell In Selection
        ' 只处理非空单元格
        If cell.Value <> "" Then
            ' 查找 "<div" 在单元格内容中首次出现的位置（不区分大小写）
            divPos = InStr(1, LCase(cell.Value), "<div")
            
            ' 如果找到 "<div"，则保留其前面的内容；否则不修改
            If divPos > 0 Then
                cell.Value = Left(cell.Value, divPos - 1)
            End If
        End If
    Next cell
    
    MsgBox "处理完成！已删除所有单元格中 '<div' 及其后面的内容。", vbInformation
End Sub

使用步骤：

1. 打开 WPS 表格，按下 Alt + F11 打开 VBA 编辑器； 点击菜单栏「插入」→「模块」，将上面的代码粘贴到新建的模块中；

2. 关闭 VBA 编辑器，回到表格界面，选中需要处理的单元格区域（如 A1:C100）；
   

3. 按下 Alt + F8 打开宏窗口，选择RemoveDivAndAfter 宏，点击「运行」；
4. 处理完成后会弹出提示框，所有选中单元格中 <div 及之后的内容会被自动删除。

说明：

1. 代码会忽略空单元格，只处理有内容的单元格；
2. 不区分 <div 的大小写（即 <DIV <Div 等也会被识别并处理）；
3. 若单元格中没有 <div 标签，则内容保持不变，不影响原有数据。
4. 如果需要处理整个工作表，可将代码中的 Selection 改为:

   ActiveSheet.UsedRange（替换第 8 行的 Set rng = Selection 为 Set rng =
    ActiveSheet.UsedRange）。