Excel VBA如何比较存在质量缺陷/错误的两个大型数据集中的值？
Excel VBA可以通过以下步骤来比较存在质量缺陷/错误的两个大型数据集中的值：
- 打开Excel文件并创建一个新的VBA模块。
- 在VBA模块中定义一个子过程（Sub）来执行比较操作。
- 在子过程中，使用变量来存储两个数据集的范围。
- 使用循环结构（例如For循环）遍历其中一个数据集的每个单元格。
- 在循环中，使用条件语句（例如If语句）来比较两个数据集中对应单元格的值。
- 如果发现差异或错误，可以执行相应的操作，例如记录错误信息或进行修复。
- 继续循环直到比较完所有的单元格。
- 最后，可以输出比较结果，例如打印差异的单元格或生成报告。
以下是一个简单的示例代码，用于比较两个数据集中的值并记录差异的单元格：
Sub CompareDatasets()
Dim dataset1 As Range
Dim dataset2 As Range
Dim cell1 As Range
Dim cell2 As Range
' 定义数据集的范围
Set dataset1 = Worksheets("Sheet1").Range("A1:D10")
Set dataset2 = Worksheets("Sheet2").Range("A1:D10")
' 遍历第一个数据集的每个单元格
For Each cell1 In dataset1
' 获取对应单元格在第二个数据集中的值
Set cell2 = dataset2.Cells(cell1.Row, cell1.Column)
' 比较两个单元格的值
If cell1.Value <> cell2.Value Then
' 发现差异，执行相应操作，例如记录错误信息或进行修复
Debug.Print "差异单元格：" & cell1.Address
End If
Next cell1
End Sub请注意，上述示例代码仅用于演示目的，实际应用中可能需要根据具体需求进行修改和扩展。
对于Excel VBA的更多信息和学习资源，您可以参考腾讯云的Excel VBA开发文档：Excel VBA开发文档
相关·内容
1回答
我正在编写一个宏，它将一个通用的日期列表(Sheet1)与一个“业务日期”列表进行比较。因此，如果常规列表中的日期不在业务日期列表中，则我的宏应该尝试查找与常规列表上的日期最近的业务日期，并将其分配给右边的列。单元格中的内容以相同的格式格式化为日期。不幸的是，Excel每次尝试运行宏时都会完全冻结，并且不得不强制退出，没有错误消息或任何内容。
Sub BusinessDate()
'Finds the closest business date to a lease date, solving for weekends
Dim businessday As Boolean
Dim sh
浏览 0提问于2018-06-25得票数 0
回答已采纳
1回答
这是我在这个平台上的第一篇文章，我希望我能得到一些帮助。我对VBA非常陌生，所以如果我不使用适当的术语或语言，请原谅我！
我正在开发一个使用excel VBA的库存管理系统。它依赖于一个Userform，它检索每个SKU的当前库存。更新人员从四种类型的数量更新中选择，包括：
a)挑选清单(为项目提取库存)；b)进货(接收)；c)返回库存(未从项目中使用的剩余/余额SKU) d)物品转移(将SKU从一个仓库转移到另一个仓库)
这一过程如下：
工作人员启动库存更新。填写与更新类型相关的详细信息(例如。选择列表将链接到项目任务编号。(等) quantitiesConfirm 更新必要的更新类型，包括
浏览 1提问于2021-01-29得票数 2
3回答
假设范围是连续的&是一列。
我想突出上面的范围重复的条目。我的VBA如下所示，但不像预期的那样起作用。主题是使用偏移量将第一个单元格值与其底部值进行比较。
Sub CompareSingleRange()
Dim rangeToUse1 As Range, rangeToUse2 As Range, cell1 As Range, cell2 As Range
' Assume Selection is contiguous
Set rangeToUse1 = Selection
Set rangeToUse2 = Selection
For Each cell1 In
浏览 4提问于2016-03-27得票数 1
回答已采纳
假设我有这样的代码：
For Each cell1 In range_vals
For Each cell2 In range_pred
If (cell1 = cell2) Then
//Do something
End If
Next cell1
Next cell2
但是我想要做的是同时遍历两个单元格范围，这个范围的长度是这样的：
For Each cell1, cell2 In range_vals, range_pred
If (cell1 = cell2) Then
//
浏览 0提问于2018-11-01得票数 5
回答已采纳
我有一列数据，其中包含字符串值。我希望通过该列中的每个单元格进行比较，并检查该值是否重复。比较既需要全文，也需要通配符。
下面是我的数据截图
如果您看到屏幕截图，则CES有限公司与另一家公司ECLERX服务有限公司共同存在于第3行和第17行。因此，我想突出显示这样重复的值。
下面是我写的代码
Dim rangeToUse As Range, singleArea As Range, cell1 As Range, cell2 As Range, i As Integer, j As Integer
Set rangeToUse = Selection
Cells.Interi
浏览 3提问于2016-06-23得票数 0
回答已采纳
我尝试比较两个工作表(Sheet1和Sheet2)之间的单元格值，看看它们是否匹配，如果匹配，则将Sheet1中的匹配值移动到预先存在的列表(Sheet3)中，然后删除Sheet1中的值。
我在Excel VBA中使用了相反的For循环，但是在我开始使用newrange1.EntireRow.Delete删除行之前，一切都是正常的。
这在VBA中抛出了一个'424‘Object Required错误，我花了几个小时试图解决这个问题，我不确定为什么会出现这个错误。我是否选择了错误的行？对象呢？
如果有人能给我指出正确的方向，我将不胜感激。
下面是我的代码：
Sub Step2()
浏览 4提问于2017-03-07得票数 7
回答已采纳
使用VBA时，当一个单元格值满足给另一个工作表单元格的条件时，我会尝试得到它的更新。到目前为止，它给了我一个“错误5-无效的过程调用或参数”。
如果没有这个“如果-然后”它就能正常工作了。现在，我想改进我的过程，当表“table”中列"VERZONDEN“中的单元格具有"J”值时，只能从表"t_Magazijnvoorraad“中更新t_Magazijnvoorraad。
Dim rng1, rng2, cell1, cell2 As Range
Dim lastRow1 As Long
lastRow1 = Range("t_Magazijnvoorraad[
浏览 0提问于2018-12-03得票数 1
回答已采纳
我想用VBA编写，以便将公式写入依赖于其他动态单元格的单元格。
Dim cell1, cell2 as Range
set cell1 = Range("A1")
set cell2 = Range("A2")
‘我无法对A1和A2进行硬编码，因为单元格稍后将通过递增行进行更改
‘我想使用引用在B1 =(1+cell1)*(1+cell2)中显示，但当我在excel上看到它时，它会显示为=(1+A1)*(1+A2)
对于B2，它将是=(1+A2)*(1+A3)
如何在VBA中实现这一点？
浏览 4提问于2015-02-11得票数 0
我的文件里有两张纸(带电话号码)。如果该数字存在于sheet1中，我想从表2中删除该行。
我马上就到了(这是我第一次使用VBA)。但最后那部分有人能帮我吗。
Sub CleanList()
Dim stopList As Range, cell1 As Range
Set stopList = Sheet1.Range("A1:A10000")
For Each cell1 In stopList
Dim fullList As Range, cell2 As Range
Set fullList = Sheet2.
浏览 0提问于2012-04-25得票数 0
回答已采纳
我的Excel数据：Cell1包含文本和图像:我希望将Cell1的值设置为Cell2。我试着：
Cell2.Value=Cell1.Value
此代码只设置文本，无法获取和设置图像。
如何获取和设置单元格包含图像的值？谢谢大家。
浏览 5提问于2017-04-25得票数 0
回答已采纳
我想比较Excel工作表布局(只有行，列，行标题和列标题)的两个不同的excel文件使用python和机器人框架，并保持不同的差异，在单独的excel文件。
我有一个代码来比较两个工作表(不同的工作簿)的所有单元格，但我们能否将它限制为只比较：
( 1)-行、列的编号
2)-行标题文本，列标题文本
( 3)-增加/删除额外行/列/工作表
“”“
from openpyxl import load_workbook
wb1 = load_workbook('AnnexureTemplates\Annex 8 (Large exposures).xlsx')
wb2
浏览 1提问于2022-06-30得票数 0
如果我有以下条件，什么方法最好呢？
3个复选框，如果选中，将填充3个单元格A1、A2和A3。我需要代码，将检查3个单元格的数据，并创建一个单一的信息字符串。我可以使用公式，但需要VBA做以下的单元格如下所示。
因此，我的最终结果将是"cell1“(如果只选中了1个复选框)或"cell1 & cell2”(如果选中了2个复选框)，但如果3个都选中了，我希望字符串为"cell1，cell2 & cell3“。此部分中将只有3个单元格。
我希望将连接的文本放到一个单元格中。AA13，它可以在以后的阶段被复制。
我有另一个场景，我有6个复选框，我需要和上面一样的
浏览 0提问于2017-07-09得票数 1
我对这一切都非常非常陌生，这个社区在编写VBA函数等方面似乎非常有帮助。我一直在这个网站上寻找类似的问题，但找不到任何与我的特定问题相关的东西。
我需要创建一个函数来复制一个单元格中的格式和另一个单元格中的值，并将它们组合到单个输出中。
对于某些上下文，我有一个工作表，它查找格式为00:00:00的数字，将它们转换为总时间值(hh:mm:ss)，并向每个值添加一个公共值。并非所有初始值都是数字，其他值是文本，需要在最终输出中保留其粗体/斜体属性。因此，我正在寻找一种方法，可以从一个单元格(假设为G2)中复制值，并从另一个单元格(假设为A2)中复制格式，然后将它们组合在一起作为最终输出。
我糟糕
浏览 0提问于2017-08-30得票数 1
2回答
我有一本有6张床单的工作簿。我正在为每一个人穿行。其任务是: 1)遍历具有指定范围的每个单元格。
2)如果单元格不是空的，并且只包含数字，那么将其添加到单元格“мм”的末尾。否则跳过这个细胞。
但是实际上，脚本只对第一个工作表(工作表)有好处。它不会改变其他床单。我不知道为什么会这样。我认为，代码中有一些错误或错误，但是我反复检查了它，一切似乎都是正确的。请帮帮我:)
Sub SaveWorksheetsAsCsv()
Dim xWs As Worksheet
Dim xDir As String
Dim folder As FileDialog
Dim r As Range
Dim rr A
浏览 3提问于2017-10-31得票数 0
回答已采纳
因此，我在同一个Excel工作簿上有几张工作表，需要进行比较。工作表1是主表，我需要比较工作表1-2，1-3，1-4。然后，我需要在工作表5的A列中粘贴任何类似的1-2个数据单元，在工作表5的B列中粘贴类似的1-3个数据单元，以及与工作表5的C列有1-4相似之处。到目前为止，我已经能够将我的测试号粘贴到第5页的单元格A1上。我遇到了麻烦，因为它只对一个单元格起作用，而且我无法让程序在A1中粘贴一个相似的，然后A2.等等，当我有多个相似的项目。它们只是在单元格A1或整个A列中相互覆盖。我也遇到了麻烦，因为当程序碰到空格时，程序就会停止，但我需要它跳过空格，在遇到空白时读取下一个单元格。这是因为我
浏览 3提问于2017-07-19得票数 0
回答已采纳
1回答
我是第一次超越VBA编码。我在一行A1中有最后一个非空白单元格的地址，现在我想移到下一个右单元格。
Dim ws As Worksheet
Dim cell1 As String
Dim cell2 As String
Dim rng1 As Range
Set ws = Sheets("ADS User Data")
Set rng1 = ws.Rows(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious)
MsgBox rng1
If Not rng1 Is Nothing Then
浏览 2提问于2016-10-18得票数 0
我有一个excel工作表(例如A页)，它中有数据，按照一个空行分隔成组，并按照第N列中的一个公共条目分组。在每个分组中，我需要在不同的工作簿中检查另一个excel工作表(例如B工作表)，看看A页A列中的任何条目是否与B列C中的任何条目匹配。如果C列条目中的任何条目与第一张工作表的单个分组中的A列条目匹配，我就不会对该分组做任何事情。如果没有匹配，我需要删除整个分组。下面是我的尝试，但我很困惑: 1.如何删除分组；2.如何正确调用每一页/列。
Sub DeleteAdjacent()
Dim wb1 As Workbook, Dim wb2 As Workbook, sh1 As Wor
浏览 3提问于2015-10-29得票数 0
回答已采纳
我想更改下面的代码来比较整个行，而不是单个单元格。我是vba的初学者，所以请简单地解释一下。
Sub RunCompare()
Call compareSheets("Sheet1", "Sheet2")
End Sub
Sub compareSheets(shtBefore As String, shtAfter As String)
'Compares sheets by cells and highlight difference
Dim MyCell As Range
Dim mydiffs As
浏览 4提问于2015-06-26得票数 0
回答已采纳
1回答
我试图比较两组大型数据，并突出显示不匹配的单元格。如果一行的单元格不同，则复制该行并将其粘贴到单独的工作表中。另外，我需要它是动态的，因为数据集可以更改列和/或行。
例如:要比较B2与E2，C2与F2，突出显示差异并将粘贴行复制到另一个工作表。然后向下移动到下一行，将B3与E3、C3与F3进行比较，并一直循环到完成。
目前，我有以下代码，但它将第一个范围区域中的一个单元格与第二个范围区域中的一个单元格进行比较，然后移动到第一个范围区域中的下一个单元格中并重复。我需要它来分别比较每个细胞。
Sub Compare()
Dim rangeToUse As Range, singleAr
浏览 2提问于2015-05-28得票数 1
回答已采纳
我在活动电子表格中有以下数据：
A B
--- ---
a a
b
c
d
e
其中B1是当前活动的单元格。
“调试”窗格中的以下代码：
Dim rng As Range
Set rng = ActiveSheet.Range("A1:A5").RowDifferences(ActiveCell)
失败，出现以下错误：
运行时错误'1004'：无法获取Range类的RowDifference属性
RowDifferences 属性的正确用法是什么？
更新
当对上述数据使用ColumnDifferences时，我得到了相同的错误。
Set rn
浏览 47提问于2018-07-17得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
