excel VBA里怎么判断两个字符串有相同的子集？ 类似于Python中的set(A)=set(B)
作者&投稿：终咬 （若有异议请与网页底部的电邮联系）
比如对于A列数据，在B1输入公示：=COUNTIF(A:A,A1)然后自动填充下面的内容，若结果为1表示A1内容在A列中是唯一的，结果2表示有2个相同的A1值，以此类推。
Excel利用自定义函数提取指定字符串及汉字转拼音
VBA没有直接这样的用法和函数，下面是我写的一个自定义函数，你参考一下
Option Explicit
Sub test()
Dim a As String, b As String
a = "abc"
b = "cdefg"
MsgBox StrCom(a, b)
End Sub
Function StrCom(ByVal str1 As String, ByVal str2 As String) As Boolean
Dim i As Integer
Dim tmp As String
StrCom = False
For i = 1 To Len(str1)
tmp = Mid(str1, i, 1)
If InStr(1, str2, tmp) > 0 Then
StrCom = True
Exit Function
End If
Next i
End Function
只能用循环比较吧。
主父饶碘海： 这个问题比较麻烦,我最近刚好在弄这个 下面这段VBA是别人写的,可以简单的判定相似度,你可以插入到模块,然后可以用公式sim(文本1,文本2).Private Function min(one As Integer, two As Integer, three As Integer) min = one If (two < ...
贵池区15049846341： vba如何判断两个字符串相等 - ？
主父饶碘海： 1、首先输入excle,打开VBA编辑器,并在编辑器中创建一个名为which day的新进程. 2、然后定义一些要使用的变量,这些变量都是字符串类型. 3、然后再给这些变量进行赋值. 4、要转换用户输入的日期格式,CDate是一个将字符串转换为日期的函数. 5、然后对mydate的值进行判断. 6、最后单击菜单栏上的“运行”按钮.
贵池区15049846341： EXCEL中怎么用函数判断这个单元格中为两个字,不是两个字符的显示错误 - ？
主父饶碘海： =IF(LEN(A1)=2,＂＂,＂错误＂)
贵池区15049846341： excel判断是否包含任意两个个字符 - ？
主父饶碘海： =if(SUM(LEN(A1)-LEN(SUBSTITUTE(A1,{0,2,3},＂＂)))<2,＂没有＂,＂有＂) 数组公式,按ctrl+shift+回车结束.
贵池区15049846341： excel 单元格中如何取前两个汉字 - ？
主父饶碘海： excel单元格中取前两个汉字,可通过MID函数实现. 方法步骤如下: 1、打开需要操作的EXCEL表格,在任意单元格中输入=MID(,然后点击选择需要提取前两个汉字的单元格作为数据目标来源. 2、继续在函数编辑框中输入1,2),然后回车完成函数编辑输入即可. 3、返回EXCEL表格可发现已成功在EXCEL中提取单元格的前两个汉字.
贵池区15049846341： excel vba判断单元格最后一个字符是2,则打印 - ？
主父饶碘海： 最后一个字符的话你可以用 right() 例如: If right(Sheets(1).Cells(10, 2),1) = ＂1＂ ThenSheets(3).Range(＂AB143:AJ153＂).PrintOut copies:=1, collate:=True End If
贵池区15049846341： Excel中,A1单元格有一段文字,其中两字被光标选中,如何用VBA代码表示被选中文字 - ？
主父饶碘海： VBA无法做到表示被光标选中的文字.关于VBA: Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言. 主要能用来扩展Windows的应用程式功能,特别是Microsoft Office软件.也可说是一种应用程式视觉化的Basic 脚本. 该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言——Visual Basic For Application(VBA),实际上VBA是寄生于VB应用程序的版本. 微软在1994年发行的Excel5.0版本中,即具备了VBA的宏功能.
贵池区15049846341： EXCEL中的IF函数怎么以文字为判断条件? - ？
主父饶碘海： 材料/工具:百Excel2010 1、在单元度格内输入“=IF(OR(B10>=80,C10>=80),＂优＂,＂差＂)”,表示其中一个不满足时返回假值＂差＂. 2、向下拖动单元内格容,可判断其它单元格. 3、在单元格内输入“=IF(OR(B2>=80,C2>=80),＂优＂,＂差＂)”.表示其中一个满足时返回真值＂优＂. 4、向下拖动单元格,可判断其它单元格.
贵池区15049846341： 用excel函数判断,两个字符串是否含有相同的字符,(每个字符串长度不确定) - ？
主父饶碘海： 你这个不是含有相同字符的问题,是含有相同“字符串”的问题. 字符好解决,MID拆分开再互相FIND查找.字符串就得先把字符串按要求分开再互相查找,比较麻烦.
贵池区15049846341： excel vba 自定义一个简单函数,判断一个单元格中是否含有某个指定汉字,若有则返回Y,没有则返回N - ？
主父饶碘海： Function dm(x As Range) dm = IIf(InStr(x, ＂足球＂), ＂Y＂, ＂N＂) End Function
