【求助】有没有简便的办法录入图中格式的内容

这些数字，你是不是只能用文本格式输入了

只能vba

做好数据，复制到word,查找替换(需用通配符)，做好格式后再复制回来

学会了！

复制到word,先把这个格式设置成秒数的格式,然后在把时分的字符设置成正常格式,查找替换,通配符,查找(^#{2}:^#{2}): ,替换为\1空格 ,格式设置为正常大小,,然后点全部替换,,,,然后复制回Excel

Sub 字体修改()
Dim ws As Worksheet
Set ws = ActiveSheet
Dim columns As Variant
columns = Array("A", "B", "D", "E")
For Each col In columns
Set rng = ws.Range(col & "1:" & col & ws.Cells(ws.Rows.Count, col).End(xlUp).Row)
For Each cell In rng
cellText = cell.Value
If Len(cellText) >= 5 Then
firstSixChars = Left(cellText, 5)
remainingChars = Mid(cellText, 6)
Else
firstSixChars = cellText
remainingChars = ""
End If
With cell.Characters(Start:=1, Length:=Len(firstSixChars))
.Font.Size = 9
End With
If Len(remainingChars) > 0 Then
With cell.Characters(Start:=Len(firstSixChars) + 1, Length:=Len(remainingChars))
.Font.Size = 6.4
End With
End If
Next cell
Next col
End Sub
单元格格式手动修改成文本