excel 检测单元格中的粗体文本并在这些标题后添加“Total”

gcuhipw9 于 2023-11-20 发布在其他

关注(0)|答案(2)|浏览(96)

我希望所有粗体的标题都在文本后面加上“总计”。我不知道为什么这个公式不起作用。
之前-这是什么样子x1c 0d1x
我希望它看起来像这样

这是我做的公式，我不知道是什么原因造成的：

Sub Test()
    Dim rng As Range
    Dim cell As Range
    Dim i As Integer
    Dim text As String
    
    Set rng = ws.Range("C1:C2000")
    
    For Each cell In rng
        If Not IsEmpty(cell.Value) And cell.Font.Bold Then
            
            For i = LBound(words) To UBound(words)
                If cell.Characters(Start:=InStr(cell.Value, words(i)), Length:=Len(words(i))).Font.Bold Then
                    words(i) = words(i) & " Total"
        
End Sub

字符串

excel

来源：https://stackoverflow.com/questions/77412517/detect-bold-text-in-a-cell-add-total-after-these-titles

2条答案

按热度按时间

kkbh8khc1#

我试了一下，效果很好

Sub BoldToCell()
        Dim ws As Worksheet
        Dim cell As Range
        Dim lastRow As Long
        
        
        Set ws = ThisWorkbook.Worksheets("Sheet1") 
        
        
        lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
        
        
        For Each cell In ws.Range("B1:B" & lastRow)
            
            If cell.Font.Bold = True Then
                
                cell.Value = cell.Value & " Total"
            End If
        Next cell
    End Sub

字符串

赞(0）回复(0）举报 2023-11-20

oyxsuwqo2#

你不需要嵌套的For循环
words没有被赋值。使用Option Explicit可以帮助避免这种类型的错误。

Option Explicit

Sub Test()
    Dim rng As Range
    Dim cell As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet 'modify as needed
    Set rng = ws.Range("C1", ws.Cells(ws.Rows.Count, 3).End(xlUp))
    For Each cell In rng
        If Not IsEmpty(cell.Value) And cell.Font.Bold Then
            cell.Value = cell.Value & " Total"
        End If
    Next
End Sub

字符串

赞(0）回复(0）举报 2023-11-20

我来回答

excel 检测单元格中的粗体文本并在这些标题后添加“Total”

2条答案

相关问题

热门标签

最新问答