作者：绿色风
分类：
时间：2022-08-17
浏览：157
楼主
wqfzqgk |
Q：如何用VBA提取活动单元格中只出现一次的字符？
A：ALT+F11→“插入”→“模块”，在新建模块中输入代码如下：
- Sub 单元格内不重复字符1()
- Set d = CreateObject("scripting.dictionary")
- Set e = CreateObject("scripting.dictionary")
- For i = 1 To Len(ActiveCell.Value)
- d(Mid(ActiveCell.Value, i, 1)) = ""
- Next
- On Error Resume Next
- For i = 1 To Len(ActiveCell.Value)
- e.Add Mid(ActiveCell.Value, i, 1), ""
- If Err.Number = 457 Then d.Remove (Mid(ActiveCell, i, 1))
- Err.Clear
- Next
- MsgBox Join(d.keys, "")
- End Sub
- Sub 单元格内不重复字符2()
- For i = 1 To Len(ActiveCell.Value)
- For a = 1 To Len(ActiveCell.Value)
- If Mid(ActiveCell.Value, i, 1) = Mid(ActiveCell.Value, a, 1) Then m = m + 1
- Next
- If m = 1 Then mm = mm & Mid(ActiveCell.Value, i, 1)
- m = 0
- Next
- MsgBox mm
- End Sub
- Sub 单元格内不重复字符3()
- For i = 1 To Len(ActiveCell.Value)
- If Len(ActiveCell) - Len(Replace(ActiveCell, Mid(ActiveCell, i, 1), "")) = 1 Then mystr = mystr & Mid(ActiveCell, i, 1)
- Next
- MsgBox mystr
- End Sub
运行以上任意一段代码，即可在弹出的对话框中返回活动单元格中只出现一次的字符。 |
2楼
成就滋味 |
学习了，分享下 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一