Excel如何把下划线上的文字提取到另一列

发布网友发布时间：2022-04-26 20:28

共1个回答

热心网友时间：2022-05-07 18:58

Excel如何把下划线上的文字提取到另一列
Sub 取下划线文字()
'分隔标志,如果是0就要加逗号
iFlag = 1
'从第2行到最后一行
For iRow = 2 To UsedRange.Rows.Count
'先清空第二列，等下把结果放进去
Cells(iRow, 2).Val
'检查该行第一列的值,逐字符检查
For i = 1 To Len(Cells(iRow, 1).Value)
'是否需要加分隔
If iFlag = 0 And Right(Cells(iRow, 2), 1) <> "," And Len(Cells(iRow, 2)) > 0 Then Cells(iRow, 2).Value = Cells(iRow, 2).Value & ","
'如果该字符是有下划线的
If Cells(iRow, 1).Characters(Start:=i, Length:=1).Font.Underline = 2 Then
'把该值填到第二列中
Cells(iRow, 2).Value = Cells(iRow, 2).Value & Mid(Cells(iRow, 1).Value, i, 1)
'说明是连续的
iFlag = 1
Else
'说明是断开的
iFlag = 0
End If
Next
'去除最后一个分隔号
If Right(Cells(iRow, 2).Value, 1) = "," Then Cells(iRow, 2).Value = Left(Cells(iRow, 2).Value, Len(Cells(iRow, 2).Value) - 1)
Next
End Sub