这是下标的快速修复:
Sub log_Script()
Dim cel As Range, rng As Range
Dim i&, k&
Dim myText$, findText$, curStr$
Set cel = Range("A1")
'myText = cel.Value
For i = 1 To Len(cel.Value)
k = k + 1
curStr = Mid(cel.Value, i, 1)
If curStr <> " " Then
findText = findText + curStr
ElseIf curStr = " " Then
findText = ""
End If
Debug.Print findText
If findText = "log" Then
If Mid(cel.Value, i + 1, 1) = " " Then
With cel.Characters(Start:=k + 2, Length:=1).Font
.Subscript = True
End With
Else
With cel.Characters(Start:=k + 1, Length:=1).Font
.Subscript = True
End With
End If
End If
Next i
End Sub
这将通过一个范围(当前设置为A1:A10
),并且对于每个单元格,它将查找log
然后取下一个数字并将其设为下标。(注意:这是假设所有日志的基数 < 10,如果不一定如此,请告诉我)。
如果您可以从 CSV 中发布几行或单元格,我可能会做得更好,这样我就可以看到格式到底是什么样的。(或截取部分数据,也可以)。