VB代码匹配两个工作薄的表格信息，并修改

最新推荐文章于 2023-03-07 20:47:42 发布
原创 最新推荐文章于 2023-03-07 20:47:42 发布 · 1.4k 阅读 · 5 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
收录于
故障解决

当前文章被收录于：

故障解决
4 篇文章 0 人学习
订阅专栏 查看详情
这段VB代码用于遍历两个工作簿的表格，基于特定匹配条件（两列值相同）来更新第一个表格中的一列数据。通过双重循环分别遍历两个表格的行，如果找到匹配的行，则将第二个表格的某一列值写入到第一个表格的对应位置。
 Sub  function()
    Dim i As Integer    ''遍历第一个表格
    Dim j As Integer    ''遍历第二个表格
    For i = 2 To 100     ''第一个表格的行数
        For j = 2 To 7585 ''第二个表格的行数
         If Sheets("Sheet1").Cells(i, 14) = Sheets("Sheet2").Cells(j, 5) Then           ''第一个匹配条件
            If Sheets("Sheet1").Cells(i, 15) = Sheets("Sheet2").Cells(j, 6) Then        ''第二个匹配条件
               Sheets("Sheet1").Cells(i, 11) = Sheets("Sheet2").Cells(j, 1)                  ''要修改的东西
            End If
         End If
        Next j
    Next i
End Sub 
VBA学习笔记本(二)——两个表格数据匹配_DEMO
04-13
VBA学习笔记本(二)——两个表格数据匹配_DEMO 将excel中两个工作表中，数据进行一键同步的通用方法
VBA脚本实例-对比两个Excel数据是否一致
10-20
VBA脚本，对比两个Excel数据是否一致，把不同两个Excel中的不同数据标红；请按ALT+F11查看代码；
VBA学习笔记本(二)——两个表格数据匹配
热门推荐
huaqitaishao的博客
04-13 1万+
最近遇到很多要在两个表之间同步数据的情况，比如在sheet1 为基础表 表中有非常多的字段 姓名 学号 班级 专业 性别 年龄 籍贯 张A 001 一班 计算机 男 15 北京 王B 002 一班 物理 男 30 上海 张C 003 一班 采矿 男 18 北京 李E 004 一班 软件 男 20 北京 秦F 005 一班 财会 男 26 北京 而在Sheet2中...
利用VRV检查WPS软件的安装率
dawn0718的专栏
10-26 1095
　　VRV是一款非常好的国产安全软件，做得还是比较精细，但也有一点小瑕疵，比如在检查WPS软件的安装上有时候不准，这个问题很让人犯愁。 　　我的做法： 　　①　如果正确安装了WPS，但是却被扫描没有安装，就进行下面的操作。 　　打开C:\Windows\SysWOW64这个目录，并找到EdpUninstallSoftware.crc这个文件，删除它。重启计算机。 　　②　如果上述操作无法提取到WPS的安装，就卸载WPS，重新启动再安装WPS。 　　③　如果上述措施还是不行，就在磁盘上搜索uninst
用vbscripting操控excel：比较两张excel表的不同并复制出来放到新建表中
BlueSkyInMyEye的专栏
11-08 4594
用vbscripting操控excel：比较两张excel表的不同并复制出来放到新建表中 以电缆编号为索引，比较两张表的差异，并将两张表的差异罗列在一张新表中差异要求：1。A表有B表没有的元组，存放在ASheet中       2。B表有A表没有的元组，存放在BSheet
怎么使用VBA查找多个工作表中相同和不相同的数据
weixin_35753431的博客
02-11 3126
您可以使用VBA代码来查找多个工作表中的相同和不相同的数据。以下是一些基本步骤： 打开Microsoft Excel，然后打开您想要查找的工作簿。 按下"Alt + F11"键打开"Visual Basic for Applications" (VBA) 编辑器。 在VBA编辑器中，单击"插入"，然后选择"模块"以创建一个新的模块。 在模块窗口中输入以下代码，用于查找工作表中的相同和不相同...
对比excel2个sheet的数据
jq656021898的博客
08-02 4206
步骤1：打开excel，创建sheet 表1，把内容粘贴到表1。（粘贴的时候可以点击右键“选择性粘贴”，只粘贴数据）创建sheet 表2，把内容粘贴到表2.步骤2：Alt+F11进入VBA环境，右键点击Microsoft Excel，点击创建插入–》模块 步骤3：粘贴代码Sub 数据对比() Dim i As Integer Dim j As Integer For i
VB两个Excel表合并查找替换
Peter的博客
04-22 871
两个Excel表合并查找替换： Sub 替换() Dim vData As Variant, nRow As Integer, vContrast As Variant, nI As Integer With Sheets("对照表").UsedRange vContrast = Sheets("对照表").UsedRange.Offset(1).Resize(.Rows.Count - 1).Value '单元格向下偏移一行，并大小向上调节1行创建数组
两个EXCEL里数据的匹配
01-11
两个EXCEL里数据的匹配，不同的两个文件如何匹配
利用VBA代码从一个表格检索另一个表格并且复制找到的内容
02-24
Excel表格，想以其中某一列为索引，查找另一个表格中同样索引的行，找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多，比如：利用学生学号和考场分配表查找学生座位号；利用字典表查找需要更新的项目；对某个表格以某列进行排序等等。相信学习这段代码可以有很多的启发。
怎样使用vb编写程序把两个excel内容进行对比
08-16
Dim xls_app As New Excel.Application Dim xls_book As New Excel.Workbook Dim xls_sheet As New Excel.Worksheet Set xls_app = CreateObject("Excel.Application") Set xls_book = xls_app.Workbooks.Open(文件名)'文件名包含完整路径！ Set xls_sheet = xls_book.Worksheets(1)'后面的1是指excel的工作表，1为第一张，以此类推 获取单元格内容：xls_app.Range("A1") 即得到A1单元格的内容 简单的作字符串比较好了
比较任意两个excel的内容，VBA编写
08-21
由于工作中经常要对比两个excel表格的数据情况，但是两个表格的数据量又特别大，于是就用VBA写了一个工具，可以自动比较两个表格中的数据情况，同时还能自动列出不同点及快速定位功能，收一个资源分当做辛苦费，大家不介意吧！
vb如何比较两张图片不同的地方 源码 调试通过
06-22
vb如何 比较 两张 图片不同的地方
如何将一个excel表格的数据匹配到另一个表中
weixin_30376083的博客
11-20 7178
我们在操作excel表的时，有时需要将一个excel表中的数据匹配到另一个表中，那么就需要用到VLOOKUP函数，VLOOKUP函数是Excel中的一个纵向查找函数，VLOOKUP是按列查找，最终返回该列所需查询列序所对应的值，下面分步介绍一下VLOOKUP函数的用法，希望对你有所帮助。 工具/原料 Excel 2013 VLOO...
EXCEL 中如何实现两个表格之间的数据自动匹配
weixin_46713695的博客
03-07 1万+
EXCEL 中如何实现两个表格之间的数据自动匹配
政府科技管理者如何在产业大脑中实现区域产业监测与政策精准匹配？.docx
最新发布
07-02
政府科技管理者如何在产业大脑中实现区域产业监测与政策精准匹配？
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值