数据区域在表1，命令按纽在表2，当点击按纽后则自动跳转到表1有数据的下面一行，谢谢！

想把不同文件固定单元格的数据汇总到一张表上，结果在网上抄的几个都提示这个怎么办？

Sub ImportYJKDataToExcel() Dim fso As Object, txtStream As Object Dim ws As Worksheet Dim paramDict As Object Dim headerOrder As Variant Dim currentLine As String Dim parts() As String Dim i As Long, j As Long Dim dataStart As Boolean Const MAX_LINES As Long = 100000 '安全读取限制 ' 初始化设置 Set ws = ThisWorkbook.ActiveSheet Set paramDict = CreateObject("Scripting.Dictionary") headerOrder = Array("N", "Mx", "My", "Asxt", "Asxt0", "Vx", "Vy", "Ts", "Asvx", "Asvx0")

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

如题，谢谢大佬们

请问看完了 全民一起vba（基础，提高 ，实战）后，还有什么vba教学视频推荐的呢？

我目前做完了保存不了，就算保存了也是一个文件能用其他的没有，我添加了小快捷方式，也是打开之前保存的那个文件，新文件没用

背景:工作需要每20分钟，截图一次。截图范围电脑全屏，目前是按图中按键截图。然后发指定微信群。 要求 1截图 2发指定微信群 3因为公司电脑不能安装软件所以想通过vba实现

1、我之前让AI帮我写了一个用于Visio转PDF的程序，如图所示， 然后我在系统设置中勾选了选项，使用UTF-8提供全球语言支持（因为微软输入法会自动切换中英文，有网友提出了这个办法），然后需要重启生效，我就重启，结果再次打开上述Visio文件，点击VBA编辑器，出现报错弹窗， 但是我另外的Visio文件都能正常打开VBA编辑器，就这个打不开，把勾选取消之后重启，又能够正常打开，这是因为什么呐？ 2、在该Visio文件的VBA编辑器中，我输入中文会变成

当使用for循环调用range数组进行复制粘贴时，会随机地在循环进行到3或4次的时候报错。 注1：这样的错误不一定每次运行都发生。 注2：逐语句运行F8目前没有出现报错的情况。 求教错误发生的原因和解决办法！感谢！

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

有能做的吗

有一个跨列计算的表格需要做VBA，实现功能假如修改其中一列，另一列在保持原始相乘结果不变的情况下做出相对应的改变，哪位大佬可以做，大概费用多少？

'设置地点网页元素的等待，可参考此类代码 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注册了，显示成功，但依旧找不到，有人有类似情况吗？

代码如下<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为整形变量，结果， 获取不同内容单元格数量给怎么做啊？

我需要在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列对应的值）