PrivateSub CommandButton1_Click() MsgBox"替换"+ TextBox1.Text +"为"+ TextBox2.Text Dim Rag As Range ForEach Rag In Range("a1:d4") Rag.Replace what:=TextBox1.Text, replacement:=TextBox2.Text Next Rag End Sub
这段代码是把Excel表格中-包含有TextBox1的字符替换为TextBox2的字符,范围是Excel表单最前的四行四列(A1到D4),方法为CommandButton1的点击事件,控件就是2个TextBox和一个CommandButton。Private Sub CommandButton1_Click()MsgBox "替换" + TextBox1.Text + "为" + Text