多个单独的excel表格，把每个表格4b位置的数提取出来，求一个代码小程序之类的，给大神跪了

Sub DivideByTenThousand(sourceRange As Range) Application.ScreenUpdating = False ' 禁用屏幕刷新 Application.Calculation = xlCalculationManual ' 禁用自动计算 Dim inputData As Variant Dim outputRange As Range Dim i As Long, j As Long ' 一次性读取原始数据到数组 inputData = sourceRange.Value ' 设置输出区域（源区域右侧一列） Set outputRange = sourceRange.Offset(0, 1) ' 处理数据数组 For i = LBound(inputData, 1) To UBound(inputData, 1) For j = LBound(inputData, 2) To UBound(inputData, 2) If IsNumeric(inputData(i, j)) Then inputData(i, j) = Round(inputData(

原先可以正常使用，但突然出现以上错误。

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

这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如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

本人不太懂代码，这个代码是抄的。挺急的，谁能帮解决？可以悬赏一杯咖啡。小弟经济有限。 情况是这样的，本人有多台电脑组成了局域网，平时需要在不同电脑打开同一个表格同一单元格统计数据，我需要记录单元格以前的历史数据，就抄了一个VBA代码。平时都是把表格共享出去，但是共享的时候，无法同时打开表格。于是我开启了共享工作薄。 但是开启了之后，我在另外一台电脑同一单元记录数据的时候，他会把以前记录的历史数据在重复记

求助各位 把设备明细表中柜号对应的型号规格数量依次批量复制到工作表“明细”行“元件名称”与行“箱体之间的列C列D列E区域的单元格中 这个可能有点难度 谢谢各位了

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

我用find找“8:15”这种时间格式的单元格然后返回行号，刚写完第一次没问题，然后批量做测试跑到第遍Excel闪退之后，让另一个人试就死活在find这个地方一直nothing跑不下去，然后我自己试也不能跑了，一直nothing。 把对应单元格格式固定成“8:15”不行，在find之前用“h:mm”刷一遍格式也不行，就是一直nothing，然后Ctrl+f调用查找与替换功能，发现查找的内容变成了“8:15:00 AM”而不是我要的“8:15”，然后尝试把要被find的单元格格式改成“h:mm:ss AM/PM”

工作需要使用vba，但是不清楚有没有什么问题

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

因原贴意外走失，现重新分享出来。 Datamatrix（DM) 码是一种高密度，高可靠性的矩阵式二维码，其发展要早于QR码。因其小型，存储信息量大的特点，被广泛应用于生产制造，物流管理和零售商品等方面。 现在公开出来的DM码生成工具，都是需要付费的软件或第三方插件，或者是有数量限制的试用版。 本例原代码分享的是用VBA自动创建DM码，无需安装任何第三方的软件或插件。关注后发下载码 下载链接: 网页链接

工作需要，想学excel的vba应用，主要是从多个sheet里，按一定规则，提取符合多个条件的内容，自动生成另一模版的PDF文件。付费，线下，天通苑，周末~

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim r As Long, c As Long, lastRow As Long Dim startDate As Date, endDate As Date r = Target.Row c = Target.Column ' 点击B列时的处理（从第四行开始） If c = 2 And r >= 4 Then ' 获取起始日期和结束日期 startDate = Cells(r, 4).Value endDate = Cells(r, 5).Value ' 处理客户详单筛选及跳转 With Sheets("客户详单") ' 动态确定数据的实际范围 lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row Dim dataRange As Range Set dataRange = .Range("A1:A" & lastRow) &#3

把表格a多列的数据里的单列的数据自动填充到另外一个表格模板对应数据的对应位置上，有能做的吗，有能做的吗，小偿

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

请问如何用vba程序在一个单元格输入数据后另一个单元格自动累加

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

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才能给出结果。有没有更迅捷的方式？ 下

如题，谢谢大佬们

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

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

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