0

我正在创建一个 excel 文件，如下所示 strFileName = "c:\test.xls"

         Set objExcel = CreateObject("Excel.Application")
         objExcel.Visible = True

         Set objWorkbook = objExcel.Workbooks.Add()
         objWorkbook.SaveAs(strFileName)

         objExcel.Quit

现在，经过一些数据处理后，我在同一张 Excel 工作表的 sheet1 和 sheet2 中手动将一些值填充到 Excel 工作表中。如果有人能告诉我如何比较同一张excelk表的两张不同表中的两个值，我会很高兴例如：sheet1有

             **Executables**             **checkbox**
                E1                             yes
                E2                             No
                E3                             yes

并且 sheet2 有 Executables 参数数量 input1 Input 2 E1
Send 2 4 {ENTER} Put 2 Input.xls {ENTER} Send 2 4 {ENTER} {ENTER}
现在我希望我的 vbscript shud 在工作表 1 中搜索每个 yes 然后来在这里并在 sheet2 中搜索。我将如何在同一个 Excel 工作表文件中对 sheet1 和 sheet2 进行比较搜索

        Thanks
        Maddy
4

2 回答 2

1

使用两个工作表对象来比较值怎么样？
这会将 sheet1 中的每个单元格与 sheet2 中的相同单元格进行比较。

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Test.xls")
Set objSheet1 = objExcel.ActiveWorkbook.Worksheets(1)
Set objSheet2 = objExcel.ActiveWorkbook.Worksheets(2)

For i = 1 To objSheet1.UsedRange.Columns.Count
    For j = 1 To objSheet1.UsedRange.Rows.Count
        if (objSheet1.Cells(j, i).Value = objSheet2.Cells(j,i).Value) Then
            'Equal do something
        else
            'Not Equal do something
        End IF
    Next
Next

objExcel.Quit
Set objSheet2 = Nothing
Set objSheet1 = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
于 2009-08-05T15:05:48.320 回答
0

您的数据是否需要存储在表单元素中，或者您可以只使用电子表格功能吗？一个简单的 VLookup 公式将比较两个工作表，但只能搜索单元格中包含的数据。

     SHEET 1
  Boy     Age
1 Joe     13
2 Jimmy   12
3 Jack    27

在第二张表中，使用以下公式：

 =if(vlookup(a1,'[Sheet 1.xlsx]Sheet1'!$A$1:$B$2,2,false)=a2, "Same", "Different")

     SHEET 2
  Boy     Age   Formula
1 Joe     14    Different
2 Jimmy   12    Same
3 Jack    27.5  Different
于 2009-08-05T13:27:04.713 回答