嘿，我明白你的需求啦——从某个单元格提取文本，把它插进多行其他文本里，还得让这个抓来的内容加粗对吧？先给你划个重点：普通的TEXTJOIN/CONCAT本身没法直接实现单元格内部分文本加粗，因为这些公式返回的是纯字符串，Excel的工作表函数本身不支持返回带富文本格式的结果。不过别担心，我给你两个实用的方案，帮你自动化搞定这件事：

方案一：公式拼接 + 批量查找替换加粗（半自动化，适合新手） #

这个方案不用写代码，靠公式+Excel自带功能就能搞定：

• 第一步：用TEXTJOIN/CONCAT拼接文本
  假设你要从A1提取需要加粗的文本，B列是每行的固定文本，要把A1的内容插入到B列文本中间，在C1输入公式（根据你的实际文本结构调整）：

  =CONCAT(B1, " ", A1, " 后续固定文本")
  

  或者如果需要拼接多行内容（比如单元格内换行），用TEXTJOIN配合换行符：

  =TEXTJOIN(CHAR(10), TRUE, "第一行前置文本", A1, "第二行后置文本")
  

  输入完公式后，下拉填充到所有需要的行，记得给单元格开启「自动换行」（右键单元格→设置单元格格式→对齐→勾选自动换行）。

• 第二步：批量加粗提取的文本

  1. 选中所有拼接好结果的单元格（比如整个C列）
  2. 按下Ctrl+H打开「查找和替换」对话框
  3. 在「查找内容」里输入A1的文本（如果所有行提取的都是同一个文本，直接输就行；如果每行提取的是对应单元格的内容，比如A2、A3...，可以先复制A列的所有内容，分批次处理）
  4. 点击对话框里的「格式」按钮，在弹出的「字体」选项卡勾选「加粗」，点击确定
  5. 最后点「全部替换」，所有匹配的文本就会被批量加粗了！

方案二：VBA宏全自动化（适合需要一键重复操作的场景） #

如果你需要完全自动化，每次更新源单元格后一键生成带加粗格式的文本，用VBA宏是最省心的。下面是定制好的代码，你可以直接改参数适配你的表格：

Sub AutoAddBoldText()
    Dim sourceText As String
    Dim targetCells As Range
    Dim cell As Range
    Dim preText As String
    Dim postText As String
    
    ' 这里根据你的实际表格修改！
    sourceText = ThisWorkbook.Sheets("Sheet1").Range("A1").Value ' 要提取并加粗的源文本
    Set targetCells = ThisWorkbook.Sheets("Sheet1").Range("C1:C20") ' 要生成结果的目标单元格范围
    preText = "前置固定文本：" ' 可以改成从其他列读取，比如 cell.Offset(0, -2).Value
    postText = " | 后置固定文本" ' 同理，支持动态读取其他单元格内容
    
    For Each cell In targetCells
        ' 拼接完整文本
        cell.Value = preText & sourceText & postText
        ' 定位源文本的位置，设置为加粗
        Dim startPos As Integer
        startPos = Len(preText) + 1
        cell.Characters(Start:=startPos, Length:=Len(sourceText)).Font.Bold = True
    Next cell
End Sub

使用方法：

1. 按下Alt+F11打开VBA编辑器
2. 右键左侧的工作表名称→插入→模块
3. 把上面的代码粘贴进去，修改里面的参数（源单元格、目标范围、前后固定文本）
4. 按下F5运行宏，或者给宏加个快速访问栏按钮，以后一键就能执行

补充说明 #

如果你的“多行文本”是指不同行的固定文本不一样（比如每行的前置/后置文本都存在对应单元格里），只需要把VBA里的preText和postText改成动态读取就行，比如：

preText = cell.Offset(0, -2).Value ' 假设前置文本在目标单元格左边第2列
postText = cell.Offset(0, -1).Value ' 假设后置文本在目标单元格左边第1列

如果还有不清楚的地方，比如你的表格结构和我假设的不一样，随时把你的单元格布局细节说出来，我再帮你调整方案~