如何修改VBA代码使单元格支持输入字母数字混合值

你的代码里限制仅数值输入的核心是IsNumeric(Target.Value)这个判断条件，只要移除这个数值检查、保留非空判断，就能让B列接受字母数字混合的内容。

修改后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        If Target.Value <> "" Then ' 仅检查单元格非空，不再限制为数值
            Range("A" & Target.Row).Formula = "=IF(B" & Target.Row & "<>""""",ROW()-ROW($A$15)+1,"""""")"
            ' 复制上一行的边框、边框颜色及文本方向
            With Range("A" & Target.Row & ":H" & Target.Row)
                .Borders.LineStyle = .Offset(-1, 0).Borders.LineStyle
                .Borders.Color = .Offset(-1, 0).Borders.Color
                .Orientation = .Offset(-1, 0).Orientation
            End With
        Else
            ' 检查B到H列整行是否为空
            If WorksheetFunction.CountA(Range("B" & Target.Row & ":H" & Target.Row)) = 0 Then
                ' 删除整行
                Rows(Target.Row).Delete
            Else
                ' 清空A到H列的内容
                Range("A" & Target.Row & ":H" & Target.Row).ClearContents
            End If
        End If
    End If
End Sub

关键修改说明 #

• 移除了原代码中If IsNumeric(Target.Value) Then这一层数值判断，直接用If Target.Value <> "" Then触发后续逻辑，这样不管输入纯数字、纯字母还是字母数字混合内容，只要非空就会执行边框复制和A列公式设置。
• 调整了对应的End If数量，确保代码结构语法正确。

修改后，B列可以自由输入任何非空文本内容，原有的清空B列时的行处理逻辑保持不变。

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