如何批量把下划线内容进行处理

bown2022

如何把下滑线内容进行批量替换



https://club.excelhome.net/forum ... jZ8MTY0MjczNQ%3D%3D

vbee

批量把下划线内容进行处理

魚。。

1. Sub Fish()
   
2.     Dim i&, k&, alen As Byte, b As Boolean, qtstr$, atstr$, n&
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.         .Range("c2:c" & .Rows.Count).Clear
   
6.         For i = 1 To .Range("b" & .Rows.Count).End(xlUp).Row
   
7.             If .Cells(i, 2).Value Like "第*部分" Then
   
8.                 n = n + 1
   
9.                 .Cells(i, 2).Copy .Cells(n, 3)
   
10.             ElseIf Left(.Cells(i, 2), 1) <> "答" Then
    
11.                 b = False: qtstr = "": atstr = ""
    
12.                 For k = 1 To Len(.Cells(i, 2))
    
13.                     If .Cells(i, 2).Characters(k, 1).Font.Underline = xlUnderlineStyleSingle Then
    
14.                         If b Then
    
15.                             qtstr = qtstr & "  "
    
16.                             atstr = atstr & Mid(.Cells(i, 2), k, 1)
    
17.                         Else
    
18.                             qtstr = qtstr & "（"
    
19.                             atstr = atstr & "|" & Mid(.Cells(i, 2), k, 1)
    
20.                             b = True
    
21.                         End If
    
22.                     Else
    
23.                         If b Then
    
24.                             qtstr = qtstr & "）" & Mid(.Cells(i, 2), k, 1)
    
25.                             b = False
    
26.                         Else
    
27.                             qtstr = qtstr & Mid(.Cells(i, 2), k, 1)
    
28.                         End If
    
29.                     End If
    
30.                 Next
    
31.                 atstr = "答案：" & Mid(atstr, 2)
    
32.                 .Cells(n + 1, 3) = qtstr
    
33.                 .Cells(n + 2, 3) = atstr
    
34.                 .Cells(n + 2, 3).Font.Color = 255
    
35.                 .Cells(n + 1, 3).Resize(2, 1).Font.Size = 12
    
36.                 n = n + 2
    
37.             End If
    
38.         Next
    
39.         .[c:c].VerticalAlignment = xlCenter
    
40.         .[c:c].Font.Name = "仿宋"
    
41.         .[c:c].WrapText = True
    
42.     End With
    
43.     Application.ScreenUpdating = True
    
44.     MsgBox "修改完成！", vbInformation, "提示信息"
    
45. End Sub

复制代码

bown2022

vbee 发表于 2022-10-16 19:56
批量把下划线内容进行处理

你是怎么替换的

bown2022

魚。。 发表于 2022-10-17 10:01

运行了代码，替换之后，括号里面的空格能自动消除吗

魚。。

bown2022 发表于 2022-10-17 16:19
运行了代码，替换之后，括号里面的空格能自动消除吗

哦，故意加的空格，不需要的话，代码里自己去掉就行了

bown2022

魚。。 发表于 2022-10-17 10:01

把下划线的内容换成空格，下滑线的内容出来之后，按照答案1|答案2|答案3的格式呈现
我用了代码，但没改成功。求教




历史 副本.rar (24.79 KB, 下载次数: 0)

2022-10-26 09:11 上传

点击文件名下载附件