Tag: 比赛

如果不是先前存在的话，从一列（newrawdata）导入/附加单元格到另一列（centrallibrary） – 匹配函数的date错误: 下面的代码使用匹配函数来检查存储在列C的单元格中的新的一组值是否存在于存储在列A中的预先存在的范围内。如果是，则在msgbox提示符下，显示与该值对应的行。否则，使用“if iserror”语句来处理错误n / a，该语句会将有问题的值附加到列A中的下一个空行问题：这适用于文本和数字，但匹配函数似乎不正确返回date。 date值会附加到列A的底部，无论预先存在。可能的错误：在匹配函数中格式化或date值要注意：下面是一条设置为注释的行，但是在取消注释的date时创build一个错误 – 用于显示列A中的数据 'MsgBox（“Data pre-exists in row”＆MatchAns）很高兴提供例子。 Option Explicit Sub AppendNewRecords() 'example used – Column A, listed with a number of values including numbers, dates and text, 'Column C contains new raw data some matching Column A and some not, 'append new […]

如何查找和匹配单元格信息并在Excel中显示消息？: 我有两张Excel表格： Sheet 1 Column A – String Data Column B – Numerical Data Sheet 2 Column X – User input String Data Column Y – User input Numerical Data 用户在列X和列Y中input数据，程序将列A中的数据与X和B中的数据进行比较。 Typical Example AB Apple 100 Apple 201 Apple 203 Mango 501 Orange 203 Pear 560 Apple 205 XY Check Apple 100 Exists Peach 235 Does […]

Excel VBA – 匹配函数在循环中给出错误: 我是一个业余的Excel VBA编码器。我想弄清楚为什么匹配函数给出了一个错误“1004，无法获得工作表函数的匹配属性”，当它在循环中运行的第三次。我的代码是： Sub com_emp() 'Defining variables Application.Run "set_var" c_row_now = db_r_datastart row_now = ce_r_datastart Do While cy.Cells(c_row_now, db_c_ident) <> "" On Error GoTo skip_emp 'In case employee is not found in historical, error redirect h_row_now = Application.WorksheetFunction.Match(cy.Cells(c_row_now, db_c_ident), hy.Columns(db_c_ident), 0) If h_row_now > 0 And hy.Cells(h_row_now, db_c_englev) <> "" Then 'If person is […]

SUMIF为两个工作表，有帐号: 我有两个帐号和收入号码的工作表。我试图find一个sumif函数，如果A列中的账号与B列中的一个账户相匹配，那么它会将相应的值加在一起。这是数据集：这是我想要的答案栏：我已经尝试了SUMIF和MATCH函数的变体，但我不知道如何设置多个列作为范围。我也不确定我是否正在使用校正function。

Workbook.Match没有find它应该的值: 我有以下function，添加一行到表。它会在添加之前检查零件号码是否存在。不幸的是，匹配不会find现有数据，并悄悄地添加相同零件号码的多个副本。任何人都可以指出我错过了什么？ Private Sub OkButton_Click() Dim LastRow As Long LastRow = LastRowOnSheet("Parts List") Dim sht As Worksheet Set sht = Worksheets("Parts List") 'Validate that the controls hold valid data If Not (Me.PartNumberTextBox.Value Like "######") Then MsgBox "Please enter a valid 6 digit Stackpole part number.", vbExclamation, "Invalid Part Number" Me.PartNumberTextBox.SetFocus Exit Sub End If […]

Excel VBA：如何返回部分匹配: 我已经看过这些问题，似乎无法find答案。我在电子表格中有系统1创build的收据ID列表。在另一个电子表格中，我也有一个由系统2创build的相同收据的列表。 90％以上的信息呈现相同，我可以使用worksheetfunction.match运行匹配。但是，在系统2中有一种具有不同格式的特定types的收据（退款和购买）。一个例子是：系统1： AAAA0000001 AAAA0000002 AAAA0000003 AAAA0000004 …. ZZZZ9999999 系统2： AAAA0000001 AAAA0000002 AAAA0000003 / AAAA000004 – 这将是一个退款和购买 AAAA0000005 …. ZZZZ9999999 我使用的代码是： While MC > MD Worksheets("ID sheet").Activate ' activate ID sheet MF = WorksheetFunction.VLookup(MD, Range("U2:W" & Range("U1")), 2, False) ' Vlookup for System 1 letters MG = WorksheetFunction.VLookup(MD, Range("U2:W" & Range("U1")), 3, […]

在Excel中select前五位的单元格: 我有一个Excel电子表格，如下所示： School A School B School C Latin 2% 1% 3% Spanish 50% 60% 45% French 25% 15% 20% Italian 15% 20% 25% German 8% 4% 7% 在一个单独的选项卡上，我想生成一份报告，说明每所学校的语言偏好从最大到最小。虽然没有显示，但我正在与34个学校合作。我希望单独的选项卡如下所示： Top 5 Languages at School A 1. Language A % Lang. A Speakers 2. Language B % Lang. B Speakers 3. Language C % Lang. […]

Excel INDEX MATCH当值可能在3列之一: 我正在使用INDEX / MATCH来查找单个列中的值，并使用以下命令从不同列中返回值： =INDEX(Sheet1!$A:$A,MATCH(A2,Sheet1!$B:$B,0)) 这将search以查看A2与Sheet1列B中的值匹配，如果是，则将返回列A该行的值。但是，正在search的值可能实际上在列B ， C或D ，我希望能够在同一个查询中search这些值。我希望下面的工作，但它不： =INDEX(Sheet1!$A:$A,MATCH(A2,Sheet1!$B:$D,0)) 有没有办法做到这一点，没有IF语句？我有一个使用IF语句处理3列的版本，但似乎应该有一个更简单的方法。

复制数据使用Vba，Matchfunction: 我是一个新的编码器。只是在VBBA初学者，并希望有一些帮助来解决这个问题。我知道我可以使用正常的Excel公式，但这是学习。这是我的代码到目前为止： Sub matchpart() Dim ocell As Range Dim swb As Workbook Dim sws As Worksheet, dws As Worksheet Dim stext As String Dim iRow As Long Dim nxtRow As Long Set swb = ActiveWorkbook Set sws = swb.Sheets("sheet1") Set dws = swb.Sheets("sheet2") For Each ocell In dws.Range("FILE_NAMES") stext = Left(ocell.Value, 12) On […]

将列表中的项目与自己匹配以获得半独特性: 我真的只是寻找某种工具，将检查一列数据中重复的近似值。例如，假设我有一列地址为这样的数据： 113 James Way 3448哈龙圈莫里路5888号 3448 Harlon Cr。在这种情况下，条目2和条目4将非常接近唯一，并且我希望某种工具，无论是在Excel中还是在独立中，它都会通知我行是重复还是重复。我不知道如何甚至search这样的东西。我尝试search模糊匹配工具等，但没有什么是我所需要的。谢谢，