如何在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 能力。立即下载，体验前所未有的高效！