Excel VBA用户表单：将指定行非首单元格内容合并填入文本框

我来帮你搞定这个需求！以下是完全适配你场景的VBA代码，一步到位解决单行单元格合并并填入用户表单文本框的问题：

Sub FillUserFormTextBox()
    Dim targetRow As Integer
    Dim lastCol As Integer
    Dim mergedText As String
    Dim i As Integer
    
    ' 👉 这里指定要处理的行号，比如姓氏行是第1行，姓名行就改成2
    targetRow = 1
    
    ' 获取该行最后一个非空单元格的列号（不用遍历所有列，效率更高）
    lastCol = Cells(targetRow, Columns.Count).End(xlToLeft).Column
    
    ' 初始化合并后的字符串
    mergedText = ""
    
    ' 从B列（第2列）开始遍历到最后非空列，跳过A列的标题（比如"Surname:"）
    For i = 2 To lastCol
        ' 只处理非空单元格，避免多余空格
        If Cells(targetRow, i).Value <> "" Then
            mergedText = mergedText & Cells(targetRow, i).Value & " "
        End If
    Next i
    
    ' 去掉字符串末尾多余的空格，保证结果整洁
    mergedText = Trim(mergedText)
    
    ' 将合并后的内容赋值给用户表单的文本框，记得替换成你实际的文本框名称！
    UserForm1.TextBox1.Value = mergedText
    
    ' 如果需要自动弹出用户表单，取消下面这行的注释
    ' UserForm1.Show
End Sub

关键细节说明： #

• 指定目标行：修改targetRow的值，比如姓名行是第2行就改成targetRow = 2
• 高效找最后一列：用End(xlToLeft)快速定位该行最后一个非空单元格，比遍历所有列高效得多
• 跳过标题列：循环从第2列（B列）开始，自动排除A列的"Surname:"或"Name:"标题
• 处理空单元格：判断单元格非空才添加，避免合并出多余的空格
• 适配你的表单：把UserForm1.TextBox1改成你实际的用户表单和文本框名称，比如你的文本框叫txtFullName，就写成UserForm1.txtFullName.Value = mergedText

如果需要分别处理姓氏行和姓名行，你可以复制这个子过程，改个名字（比如FillSurnameTextBox和FillNameTextBox），然后修改对应的targetRow和文本框名称就行啦～

内容的提问来源于stack exchange，提问作者Johannes Tunger