有能做的吗

思路决定运行速度 excel提取重复值的数量(筛选出唯一值的数量)有很多方法，不同方法的运行速度差别很大，尤其在处理海量数据是选择不当的话速度能让人崩溃。 要提取重复值的数量分删除重复值+重复值计数2个动作，在低版本的excel一般采用函数Countif、函数match等求的处理，对于海量数据简直是煎熬，用高级筛选或删除重复值速度能稍微少一些，至于用VBA的字典或集合等方式更是蛮不可以，80万行数据要4000s才能给出结果。有没有更迅捷的方式？ 下

'设置地点网页元素的等待，可参考此类代码 sleep 1000'这边设置等待时间 Do Until Not WD.FindElementById("***") Is Nothing DoEvents Loop Do Until WD.FindElementById("***t").Enabled = True DoEvents Loop 尝试过很多种等待方式，上述亲测可用，先判断网页元素是否存在，再判断元素是否可用；前面可再增加等待时间；当然初次之外，针对有些网页，可对特定图标元素乳转圈圈啊，或者鼠标的状态进行判断；然后，对网页状态判断WD.ExecuteScript("return document.readyS

为什么打开师兄传给我的VB半成品，会显示这个啊，VB又跟CAD有什么关系？

苹果系统的Excel 怎么无插入用户窗体的选项呢？求指点迷津

求助怎么回事，没提示得全记太麻烦了

EXCEL表格中有A.B.C三个数据，通过VBA实现一键更改WORD中A.B.C三个数据并生成新的word 求求求

大佬们，自己检查没发现问题，一直提示这段代码有问题，错在哪呢？

谷歌浏览器打开总是显示这个界面，请问是什么原因

农残检测工作中需要对检测结果进行评价，评价中有一项需要针对使用内插法对检测结果的精密度进行计算，需要查询大量的数据，并且计算过程相对简单，现在编写一套内插法的计算方式程序，方便用于采用EXCEL方式书写检测记录的同事使用！ 太长发不了，需要源码的私信！ 代码如下：

要实现的功能是把doc文件中的一个单元格内容中的空格清除，但是清除完为什么在单元格末尾会自动添加一个换行?求大神教教该怎么解决。

如图所示，按指定列拆分EXCEL文件，运行时出错，请高手帮指点代码怎么改！

我就是想操作剪切板，但是死活是找不到Microsoft Forms 2.0 Object Library, 我专门运行管理员把Forms2.0注册了，显示成功，但依旧找不到，有人有类似情况吗？

Excel文件所有sheet合并在一个汇总表格里，怎么实现

代码如下<input type="radio" name="radio" value="1" >男<input type="radio" name="radio" value="2" >女。如何用excel vba选择网页的二选一按钮

不同的两个宏想通过一个按钮执行

运行到Wb.Close False 这行代码关闭Wb工作簿时会把代码工作簿一起关了。第二次循环到该句前一句时就报错，请问各位是哪里的问题。 Option Explicit Sub test() Dim n%, m%, Folder$, File$, Wb As Workbook, Time!, Time1!, Time2! With Application.FileDialog(msoFileDialogFolderPicker) .Show '打开文件夹 Folder = .SelectedItems(1) & "\" '文件夹路径赋值 End With Time1 = Timer '提取当前时间 'Application.ScreenUpdating = False '冻结屏幕 File = Dir(Folder & "*.xlsx") '遍历XLSX文件 Do Whi

在一个网页，输入要搜索的文字后，需要点击一个搜索按钮，然后才会搜索，检查源代码，如下<button type="submit" name="operate" value="query" class=" waves-effect">查询</button>。如果在vba里面，要怎么让它自动点击这个按钮，已经实现了让它自动在搜索框填写内容。

大神们帮忙看看呗，是哪里写的不对，谢谢了！

来个大佬分享一下呗

VBA代码，添加了二维三级联动后，就没有办法运行了，老是提示，图片里有详情，希望大佬帮忙看看，太感谢了！

问题描述如下，请大神帮忙解惑 Sheets("深南 L").Activate bbb = Sheets("深南 L").Range("A1048576").End(xlUp).Row For aaa = 3 To bbb Step 1 mm = Sheets("深南 L").Range("B" & aaa).Value nn = Sheets("深南").Range("B:B").Find(mm).Row------问题点：如果找不到，不会清除上次的行号值，抓取数据是会沿用上一次的行号 With Sheets("深南 L") .Range("AR" & aaa) = Sheets("深南").Range("AS" & nn) .Range("AS" & aaa) = Shee

这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如7,10,15行的数据都得记录。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row <> 5 Then Exit Sub t = Now() If Target.Comment Is Nothing Then Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target) Else Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target) End If End Sub

上班电脑不知道安装了什么版本的WPS能无损打开我写的宏，但是当我把表格拿回家以后就算安装了VBA，WPS也不让我用宏了……

用Excel vba的Active sheet.pictures.insert("图片路径"）·select可以插入具体的某一个图片，但是怎么让它自动插入图片文件夹下的图片，从第一个开始，在不给它具体图片具体名字的情况下

求！公司老板让设计自动化表格，鼠鼠一点都不会啊，有偿

各位大神们帮忙看看有没有什么公式可以实现图中效果。如图所示，I2:N6每一行单元格对应B2:G20区域内每一行单元格。如果有相同的在O列显示A列的数值，没有相同就不显示,有多个相同就用逗号隔开显示出来。比如I2:N2在B2:G2中有B2和I2，D2和K2相同，E2和L2相同，G2和N2相同所以O2显示A2数值。

求高手排一个值班表，各部门值各部门的班。

各位大佬求助，现在需要在左边表格中，根据类别那一列，找中间边表格中的关键词，中间表格B列有对应的关键词，就出来C列的目标词， 现在的做法是最蠢的，把东西全部放上去，一个一个的找，这样子导致，我漏的东西，再增加关键词和目标词，就要重新编写一遍公式，这还是数据少的部分，还有关键词对应目标词上百个的，求大佬帮忙想个公式解决 1.查找出关键词，写入对应的目标词 2.根据写的分类，提取需要的参数1到5 3.提取出的目标词，按

在家里电脑用的好好的，到办公室电脑(2016专业版)点几次就报错，请大神给看看

CPxilie = Application.Sum(1 / Application.CountIfs("B2:B21", "B2:B21")) CPxilie为整形变量，结果， 获取不同内容单元格数量给怎么做啊？

现在有一些文本，如：湿面筋含量(14%湿基)为29.2%，希望匹配到目标文本后第一个不在括号内的数字，即29.2，利用如下表达式：面筋[^\d]*(\d+(\.\d+)?)(?![^\(]{0,10}[^\(])，无法匹配到数字，这是为什么。

我需要在C列，根据B列的名字在文件夹里找文件，并创建超链接，但是我的文件名有些是范围登记的情况，有没有大佬帮忙指导一下写个代码，档案号的格式都是(字母--编号)，拜托各位大神，用Ai怎么都描述不出我的需求。

大佬们我有个word打开Excel，使用excel内容的vba，之前运行良好，但最近在没有任何改动的前提下报错找不到vba6.dll，一顿操作修改好后运行createobject("shell.application")后崩溃，请问是啥原因？试过引用excel.exe和shell32.dll了，提示与已有模块或对象冲突

如图。 1、请开启宏 2、点击按键后，请选择一个文件夹 3、自动在这个文件夹内新建一个“文件目录”的ECCEL文件 4、在“文件目录”自动新建一个“文件目录”sheet， A列是文件名称，B列是链接（点击可以直接打开文件）C列是文件最后修改日期。 5、有要的留邮箱。

如下图，，公司电脑，vba用不了。。

怎样用VBA在CDR中插入二维码？有没有大佬给写一段代码！！！跪求！！！

A列共9行数据都是900，第一步从9行数据中随机抽取4个减去1000输出到B列（未被抽取的等于A列对应的值）， 第二步从大于0的数据随机抽取4个减去1000输出到C列（未被抽取的等于B列对应的值）

这段收到这个提示 是咋回事呢

不知道是代码问题还是电脑计算过程中四舍五入的问题，我运行的结果和答案不太一样。请问应该如何修改？（图1是答案，图2是我计算出来的）

Sub SendEmailWithAttachment() Dim OutlookApp As Object Dim OutlookMail As Object Dim AttachmentPath As String On Error GoTo ErrorHandler Set OutlookApp = CreateObject("Outlook.Application") With OutlookMail .To = "19609057@qq.com" .Subject = "hi" .Body = "t" .Attachments.Add "C:\Users\wangshuyuan\Desktop\load\t.txt" .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing Exit Sub ErrorHandler: Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub

这段vba的问题出在哪里？代码上面的部分我是做了一个合集，因为需要把一个总表的数据，按照对应的港口名称分别打开不同的表格进行数据更新。经过测试，在原数据表中找到正确数据是可以做到的，但就是没有办法在目标数据表中找到对应的位置进行填入。这个function的问题在哪？目标表格的格式还是固定的，拼写也没有问题。求解答，有意向的留言或者私信我需要更多信息的话

通过百度网盘分享的文件：1_娱票儿票房分… 链接:https://pan.baidu.com/s/17cKAK4pNFb9p8DB5Nz4tvg?pwd=vt8v 提取码:vt8v 复制这段内容打开「百度网盘APP 即可获取」

发附件，附件中或回帖中说明需求。附件可以上传至自己的网盘或其他办法，然后链接发给我

sql语句中有中文就乱码，插入数据时有中文就是一堆问号，将vba中的字符串直接复制运行却没问题，通过Execute运行就乱码。求大佬赐教

---------------------------------------- 要求：使用VAB，自动生成上面的图形， 注一：单元格，里面是一个小圆圈 注二：小圆圈要一秒钟画一个，最后全部画出来，会构成 [四边形+对角线] 注三：不能使用其它的延时函数，只能使用 Application.OnTime 来控制每秒时间 --------------------------------------- 新手来学习下，老手也看过来哈