Excel VBA如何自定义填充范围不受BB列限制，用输入框内容替换选定区域

调整后的完整代码如下：

Private Sub CommandButton4_Click()
    Dim inputContent As String
    ' 校验当前是否选中单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中需要填充的单元格区域", vbExclamation
        Exit Sub
    End If
    ' 弹出输入框获取填充内容
    inputContent = InputBox("请输入需要填充的内容", "批量填充")
    ' 处理用户取消输入的场景
    If inputContent = "" Then Exit Sub
    ' 批量替换选中区域内容
    Selection.Value = inputContent
End Sub

核心修改说明 #

• 移除了原代码中查找表头、固定定位BB列范围的逻辑，直接通过Selection对象获取用户手动选中的单元格区域
• 新增选中类型校验逻辑，避免未选中单元格时点击按钮触发运行错误
• 新增输入空值/取消输入的拦截逻辑，避免误操作清空选中区域内容
• 直接将输入内容赋值给选中区域，一步完成批量替换

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