Sub FilterDicValid() Dim arr, lRows As Long '定义数组变量arr,长整型lrows Dim myDic As Object '定义变量myDic 作为对象 Dim i As Long '定义i为长整型变量 Application.ScreenUpdating = FalseWABusiness最新版本 '关闭屏幕更新 With Range(E2, Range(E2).End(xlDown)) '对所有E列数据，从E2开始 lRows = .Rows.Count 'lRows变量赋值为E列数据范围的行数， arr = .Value '将所有值，赋值给数组arr End With Set myDic = CreateObject(Scripting.Dictionary) '创建数据字典对象 For i = 1 To UBound(arr) '对每个数组值WhatsApp网页登入 myDic(arr(i, 1)) = '数据字典的项设为空，这个是提取唯一值的作用 Next With Range(B2).Validation '给B2单元格设置数据有效性 .Delete '如果存在数据有效性，首先删除 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:=Join(myDic.keys, ,) '添加数据有效性，序列，值为刚才提取的数据字典的关键字（唯一值） End With Set myDic = Nothing ' 设置变量myWhatsAppMessenger苹果端DicWhatsApp网页版变好为空，WhatsApp客户端清空数据字典 Application.ScreenUpdating = True '开启屏幕更新End Sub

记得水晶报表有个现成的导出

打开你的表格，按ALT+F11，新窗口左侧有个“模块”，右击——插入新模块，复制别人的VBA后粘贴到你的新模块中。

1. ubuntu注意当前目录位置，例如有的挂载盘没有权限，sudo make也没有用。
2. mupdf的platform/android是我们编译android所需要操作的目WhatsApp扫码登录录。里面有一个README，其中一步是生成genarated目录的。这步必须要做。也就是到mupdf根目录，进行make generate,会生成这个目录。然后把这个目录复制WhatsApp接口到platform/android下面。
3. 修改local.properties也是必要的，下面是我的修改的：
sdk.diri=/home/viz/install/android_studio/android-studio/sdkWhatsApp视频通话/platforms/android-17/
ndk.dir=/home/viz/install/androidWhatsApp网页版如何登陆-ndk-r9/

好用的，必须在ThisWorkBook中存放该代码 。估计你是放到其他地方了，故而不起作用。

自己试一下就知道啦：
MsgBox (Workwhatsapp官网网址sheets(1).Name)

把源代码复制到你的表里

我现在机器从装了，代码都不知道去哪里了，

WhatsApp网页版请注明：WhatsApp网页版 » whatsapp开发协议 Excel中,以下代码是什么意思?