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

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

實例演示

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

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

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

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. 完成上述操作后，回到工作表窗口。點擊菜單欄中的【視圖】，然后從下拉列表中選擇【宏】，再點擊【查看宏(V)】打開宏對話框。在宏對話框中選擇剛剛創(chuàng)建的宏名并執(zhí)行。

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

6. 如果您覺得這篇文章對您有幫助，請點擊下方的“投票點贊”或者“收藏”來支持我！如果還有其他疑問，請點擊下方的“我有疑問”，謝謝！

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

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

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