摘要： 有时需要将Excel单元格内字符串中的重复字符提取出来，例如提取字符串“abcdeAbcDe”中重复的几个字符“bce”，如图所示，可以用自定义函数实现。
1.按Alt F11，打开VBA编辑器。
2.单击菜单“插入→模块”，在代码窗口中粘贴代码：
Function GetDupChar(theString As String) As String
Dim i As Integer
For i = 1 To Len(theString) – 1
If Len(theString) – Len(Replace(theString, Mid(theString, i, 1), "")) > 1 Then ‘
If InStr(GetDupChar, Mid(theString, i, 1)) = 0 Then GetDupChar = GetDupChar & Mid(theString, i, 1)
End If
Next
End Function
excel模拟“AfterPrint”事件打印后执行命令
通常在Excel VBA中用“Workbook.BeforePrint”事件在打印前执行某项操作或命令，那么，要在打印后再执行某个命令该如何实现呢？Excel中并没有提供“AfterPrint”事件，用下面的VBA代码可以模拟“AfterPrint&rdquo
3.关闭VBA编辑器，返回Excel工作表界面。
假如字符串在A2单元格，在B2输入公式：
=GetDupChar(A2)
要将多个单元格中的字符串合并后提取重复字符，如A3单元格为“12345123”，A4单元格为“mnc12526”，在B8单元格输入公式：
=GetDupChar(A3&A4)
将返回这两个单元格中字符串合并后重复的字符“1235”。
Excel vba中chr函数实例用法
本文介绍VBA中chr函数的用法，通过简单举例理解chr函数，并最后总结chr函数常用的转换码。 第一：chr函数用法介绍 chr是什么函数呢？excel VBA中chr函数是将一个ASCII码转为相应的字符。 chr函数的语法为：Chr(charcode) 其中的参数charcode：0 至 31 之间的
