Excel VBA 宏 文本框批量修改和替换

不能对多重选择区域执行此操作。请选择单个区域，然后再试

问：随机选中n个文本框，无法批量替换

image.png

答：ALT+F8 ，新建宏名称-->创建-->右键模块-->插入-->用户窗体

image.png image.png
image.png

将文字控件和文本框矿控件拖到右边窗体上
添加文本框change事件

Private Sub TextBox1_Change()
For Each sc In Selection
        sc.Value = TextBox1.Value
    Next
End Sub

修改模块代码，保存即可

Sub 批量替换()
    Load UserForm1  '加载“InputForm”窗体
    '加载窗体就是初始化窗体，为窗体分配内存，但不显示窗体。
    UserForm1.Show 0  '显示“InputForm”4
End Sub

1605862560878.gif