在使用Microsoft Office Excel時(shí)，我們經(jīng)常需要對(duì)文本框中的內(nèi)容進(jìn)行替換操作。但是直接使用替換功能是無(wú)法批量替換所有工作表中的文本框內(nèi)容的，逐個(gè)修改文本框非常耗時(shí)費(fèi)力。下面將通過(guò)一個(gè)

在使用Microsoft Office Excel時(shí)，我們經(jīng)常需要對(duì)文本框中的內(nèi)容進(jìn)行替換操作。但是直接使用替換功能是無(wú)法批量替換所有工作表中的文本框內(nèi)容的，逐個(gè)修改文本框非常耗時(shí)費(fèi)力。下面將通過(guò)一個(gè)實(shí)例來(lái)演示如何快速替換所有工作表中的文本框內(nèi)容。

實(shí)例演示

1. 首先打開(kāi)Microsoft Office Excel 2007，新建一個(gè)文檔并保存為文件名《Excel批量替換所有工作表的文本框內(nèi)容.xlsm》（演示文件）。可以將以下代碼復(fù)制到任何能夠運(yùn)行宏的工作簿中。

2. 按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，然后點(diǎn)擊菜單欄【插入】下拉列表中的【模塊（M）】。

3. 在VBE編輯界面中插入一個(gè)模塊1，并將以下代碼復(fù)制到代碼框中：

Sub 批量替換文本框內(nèi)容()
    Dim myr As Shape, st As Worksheet, m1, m2
    m1  (prompt:"查找內(nèi)容", Type:2)
    m2  (prompt:"替換內(nèi)容", Type:2)
    For Each st In 
        For Each myr In 
            If myr.Type  msoGroup Then myr.Ungroup
        Next myr
        For Each myr In 
            If myr.TextFrame2.TextRange.Text  m1 Then
                myr.TextFrame2.TextRange.Text  m2
            End If
        Next myr
    Next st
End Sub

4. 完成上述操作后，回到工作表窗口。點(diǎn)擊菜單欄中的【視圖】，然后從下拉列表中選擇【宏】，再點(diǎn)擊【查看宏(V)】打開(kāi)宏對(duì)話框。在宏對(duì)話框中選擇剛剛創(chuàng)建的宏名并執(zhí)行。

5. 在彈出的對(duì)話框中，輸入要查找的內(nèi)容，例如“2021年1月9日”，然后點(diǎn)擊確定。接著，在下一個(gè)對(duì)話框中輸入要替換的內(nèi)容，例如“2021年1月10日”，再次點(diǎn)擊確定。這樣，所有工作表中的文本框中的內(nèi)容就會(huì)被批量替換了。

6. 如果您覺(jué)得這篇文章對(duì)您有幫助，請(qǐng)點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”來(lái)支持我！如果還有其他疑問(wèn)，請(qǐng)點(diǎn)擊下方的“我有疑問(wèn)”，謝謝！

修法布施得聰明智慧，多分享讓生活更美好

修法布施得聰明智慧，多分享讓生活更美好。在Excel中，我們經(jīng)常需要對(duì)文本框中的內(nèi)容進(jìn)行替換操作。但是直接使用替換功能是無(wú)法批量替換所有工作表中的文本框內(nèi)容的，逐個(gè)修改文本框非常耗時(shí)費(fèi)力。下面將通過(guò)一個(gè)實(shí)例來(lái)演示如何快速替換所有工作表中的文本框內(nèi)容。 例子：所有工作表中的文本框日期替換如圖。 1. 首先打開(kāi)Microsoft Office Excel 2007，新建一個(gè)文檔并保存為文件名《Excel怎樣批量所有工作表的文本框內(nèi)容替換.xlsm》（演示文件，下面代碼復(fù)制到能運(yùn)行宏的工作簿都可以）如圖。 2. 然后按下快捷鍵ALT F11打開(kāi)VBE（宏）編輯界面，然后點(diǎn)擊菜單欄【插入】下拉列表中的【模塊（M）】如圖。 3. 然后插入了一個(gè)模塊1，在代碼框中復(fù)制如下代碼：

Sub 批量替換文本框內(nèi)容()
    Dim myr As Shape, st As Worksheet, m1, m2
    m1  (prompt:"查找內(nèi)容", Type:2)
    m2  (prompt:"替換內(nèi)容", Type:2)
    For Each st In 
        For Each myr In 
            If myr.Type  msoGroup Then myr.Ungroup
        Next myr
        For Each myr In 
            If myr.TextFrame2.TextRange.Text  m1 Then
                myr.TextFrame2.TextRange.Text  m2
            End If
        Next myr
    Next st
End Sub

4. 以上操作動(dòng)態(tài)過(guò)程如圖。 5. 回到工作表窗口，運(yùn)行【批量替換文本框內(nèi)容】宏（菜單欄中點(diǎn)【視圖】中下列表中【宏】列表【查看宏(V)】打開(kāi)宏對(duì)方框，選該宏名，執(zhí)行），提示“查找內(nèi)容”輸入”2021年1月9日“確定，再提示“替換內(nèi)容”輸入“2021年1月10日”確定，所有表文本框變由”2021年1月9日“為“2021年1月10日”，運(yùn)行過(guò)程如圖。 6. 如果覺(jué)得這篇經(jīng)驗(yàn)幫到了您，請(qǐng)點(diǎn)擊下方的“投票點(diǎn)贊”或者“收藏”支持我！還有疑問(wèn)的話可以點(diǎn)擊下方的“我有疑問(wèn)”，謝謝啦！