请教如何写条件条件判断？

jian82372387

excel 工作表遍历B列中所有单元格中，遍历B列单元格里仅有数字和B的组合则删除字母B保留数字放回原来的单元格里（如B列中只有3B，没有3A所以B4单元格删除字母B只保留数字，但是如果有同一数字分别与A、B组合的，如：B2单元格的值2A，B3单元格的值2B（即为同一数字“2”与A、B组合都有），这种情况则不需处理），具体所需结果如C列所示。

ykcbf1100

看了半天，没明白什么意思。

边缘码农

你的代码和帖子里的介绍不一致：

边缘码农

Sub ClearBValue()
    Dim lastRow As Long
    Dim cell As Range
    Dim cellValue As String
    Dim result As String
   
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row ' 获取 B 列最后一个单元格的行数
    For Each cell In Range("B1:B" & lastRow) ' 遍历 B 列的所有单元格
        cellValue = Trim(cell.Value) ' 获取单元格的值，去掉前后空格
        result = "" ' 用于存储处理后的结果
        ' 判断单元格值是否为纯数字
        If IsNumeric(cellValue) Then
            result = cellValue
            GoTo jack:
        End If
        ' 单元格的值包含 A ，不做处理
        If InStr(cellValue, "A") > 0 Then
            result = cellValue
            GoTo jack:
        End If
        ' 单元格的值同时包含 A 和 B 组合，不做处理
        If InStr(cellValue, "A") > 0 And InStr(cellValue, "B") > 0 Then
            result = cellValue
            GoTo jack:
        End If
        ' 单元格的值仅包含 B 组合，将 B 删除只剩下数字
        If InStr(cellValue, "B") > 0 Then
            result = Replace(cellValue, "B", "")
        End If
jack:
        ' 将处理后的结果赋值给原单元格
        cell.Value = result
    Next cell
End Sub

jian82372387

边缘码农 发表于 2024-3-14 15:22
你的代码和帖子里的介绍不一致：

不好意思，代码有问题的忘记上了，已经重新上传了附件和要求了

jian82372387

边缘码农 发表于 2024-3-14 15:33
Sub ClearBValue()
    Dim lastRow As Long
    Dim cell As Range

不是这样，我的需求是只删除B4单元格中的字母B；B3单元格的2B不用处理保留原值，因为有2A所以不处理。

jian82372387

有大神能帮忙解决吗？？