如何实现字符串多独立字符加粗及Excel VBA拆分单元格内数字1？

针对你提到的两个Excel文本处理需求，我来帮你完善VBA代码并给出实现方案：

需求二：拆分紧跟字母后的数字1 #

你已经把目标单元格的值存到v3变量里了，接下来可以通过循环定位所有的"1"，判断它是否紧跟在字母后面，再插入空格拆分。这里完善你的代码如下：

Public Sub Guide()
    Dim v3 As String
    Dim i As Integer, j As Integer ' 注意：VBA里要明确声明每个变量的类型，避免默认Variant
    Dim pos As Long
    v3 = Sheets("Script").Cells(12, 8).Value
    
    i = 1
    Do
        ' 从当前位置开始找下一个"1"
        j = InStr(i, v3, "1", vbTextCompare)
        If j = 0 Then Exit Do ' 找不到更多"1"就退出循环
        
        ' 找到当前"1"前面最近的空格位置，确定它所属的"单词"范围
        pos = InStrRev(v3, " ", j - 1)
        
        ' 如果pos为0，说明"1"在字符串开头，不符合需求直接跳过
        If pos > 0 Then
            ' 提取空格到"1"之间的内容，判断最后一个字符是不是字母
            Dim prefixPart As String
            prefixPart = Mid(v3, pos + 1, j - pos - 1)
            
            ' 确认是"字母+1"的连写结构，才插入空格
            If Len(prefixPart) > 0 And Right(prefixPart, 1) Like "[A-Za-z]" Then
                v3 = Left(v3, j - 1) & " " & Mid(v3, j)
                ' 插入空格后字符串变长，下一次查找要后移2位
                i = j + 2
            Else
                i = j + 1
            End If
        Else
            i = j + 1
        End If
    Loop
    
    ' 把处理好的内容写回原单元格
    Sheets("Script").Cells(12, 8).Value = v3
End Sub

代码逻辑说明： #

1. 用Do Loop循环遍历所有"1"，直到找不到为止
2. 借助InStrRev定位"1"前最近的空格，锁定需要检查的字符段
3. 判断"1"的前置字符是否为字母，确保是需要拆分的连写结构
4. 符合条件时在"1"前插入空格，并调整下一次查找的起始位置（避免重复处理）

需求一：给字符串中多个独立字符设置加粗格式 #

如果是要给单元格里前后为空格（或字符串首尾）的单个字符设置加粗，需要用到Excel的RichText对象来操作文本格式，示例代码如下（这里以加粗独立的"k"和"r"为例，你可以自行修改目标字符）：

Public Sub BoldIndependentChars()
    Dim targetCell As Range
    Dim rtfFormat As RichText
    Dim charIndex As Integer
    Dim currentChar As String
    
    Set targetCell = Sheets("Script").Cells(12, 8)
    Set rtfFormat = targetCell.RichText
    
    ' 遍历单元格文本的每一个字符
    For charIndex = 1 To Len(targetCell.Value)
        currentChar = Mid(targetCell.Value, charIndex, 1)
        
        ' 判断当前字符是否是目标字符，且处于独立状态
        If currentChar = "k" Or currentChar = "r" Then
            Dim isIndependent As Boolean
            isIndependent = True
            
            ' 检查前面是否是空格（或字符在开头）
            If charIndex > 1 And Mid(targetCell.Value, charIndex - 1, 1) <> " " Then
                isIndependent = False
            End If
            ' 检查后面是否是空格（或字符在结尾）
            If charIndex < Len(targetCell.Value) And Mid(targetCell.Value, charIndex + 1, 1) <> " " Then
                isIndependent = False
            End If
            
            ' 如果是独立字符，设置加粗
            If isIndependent Then
                rtfFormat.Characters(charIndex, 1).Font.Bold = True
            End If
        End If
    Next charIndex
    
    ' 把富文本格式应用到单元格
    targetCell.RichText = rtfFormat
End Sub

代码逻辑说明： #

1. 用RichText对象操作单元格格式，不会破坏原有文本内容
2. 逐个检查字符，判断是否是目标字符且处于独立位置（前后为空格或字符串首尾）
3. 符合条件的字符直接设置Font.Bold = True，实现加粗效果

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