作者：绿色风
分类：
时间：2022-08-18
浏览：88
楼主
传递 |
多方法整理3字经
如何将一段连续文字整理成3字的词？整理如下方法:
1.wor查找替换法
查找【???】 替换为【^&^p】 勾选通配符
【???】表示，查找3个字（和EXCEL一样？为占位符，一个？代表一个文字）
【^&^p】^&是表达式，查找到的内容。^p是段落回车符。整段意思是：查找到的内容加回车。
2.Excel技巧法
将该列列宽调整到容纳3个字的宽度，点内容重排（10版称 两端对齐）
注：要是发现提取字符数不正确，则慢慢调整宽度，字体大小用默认。
3.Excel函数法
输入公式：- =MID(A$1,(ROW(A1)-1)*3+1,3)
下拉完成
4.ExcelVBA法
代码如下：
代码1- Sub szj() '循环语句提取
- Dim i As Integer
- i = 1
- For i = 1 To 99
- Cells(i + 1, 2) = Mid([a1], (i - 1) * 3 + 1, 3)
- Next i
- End Sub
代码2- Sub qsz()
- Dim i As Integer, sr As String
- sr = Range("a1").Value
- For i = 1 To Application.RoundUp(Len(sr) / 3, 0) 'application其实就是调用工作表函数了
- Range("c" & i + 1) = Mid(sr, (i - 1) * 3 + 1, 3)
- Next
- End Sub
 提取三字经.zip
|
2楼
herelazy |
传递，太牛啦，从技巧，到函数，到VBA，面面俱到啊！ |
3楼
CheryBTL |
厉害，收藏学习！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一