如何在 Excel 中將文字方塊中的文字轉換為儲存格內容？

如果工作表中有一些文字框，並且您想將這些文字框中的內容分別轉換到單獨的儲存格中（如下方截圖所示），是否有快速的方法可以解決這個問題，而不是在 Excel 中逐一手動輸入呢？本文中，我將介紹一個巨集來幫助您解決這個問題。

使用 VBA 將文字框內容轉換為儲存格

使用 VBA 將文字框內容轉換為儲存格

除了巨集代碼外，沒有其他技巧可以快速將文字框轉換為儲存格內容。

1. 按下 Alt + F11 鍵以啟用 Microsoft Visual Basic for Applications 視窗背景色。

2. 點擊 插入 > 模組，然後將以下代碼粘貼到模組腳本中。

VBA：將文字框轉換為儲存格

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

3. 按下 F5 鍵運行代碼，會彈出一個對話框提醒您選擇一個儲存格來導出方案文字框內容。請參見截圖：

4. 點擊 確定。現在所有文字框都已轉換為儲存格內容。

提示：上述 VBA 在運行後將刪除文字框，如果您想保留文字框，請將代碼 xTxtBox.Delete 改為 'xTxtBox.Delete。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！