如果工作表中包含多个文本框，而您希望将其中的内容分别转换为单元格内容（如下图所示），除了在 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 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！