Question

我有一个Excel工作簿，有两张工作表，Sheet1和Master。我试图在Sheet1中获取Cell（1,1）的值，同时循环遍历Master A列中的行。如果Cell（X，1），其中X是Master中的当前行（X从2开始）不等于Sheet1中的Cell（1,1）的值，则删除该行，保持循环直到最后一行。这是我想写的VBScript。我遇到的问题是有些行被删除但不是全部。我认为一些问题是我似乎遇到了运行时错误，以及关于数据链接属性的弹出窗口。

Dim fso
Dim directory`

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


Set fso = CreateObject("Scripting.FileSystemObject")
Set directory = fso.GetFolder("H:\folder")`

For Each f In directory.Files
    Set objwb = objExcel.Workbooks.Open(f)
    Set objwsMaster = objwb.Sheets("Master")
    Set objwsSheetOne = objwb.Sheets("Sheet1")`

    TotalRowCountMaster = objExcel.ActiveWorkBook.Sheets("Master").UsedRange.Rows.count

    uniqueCodeCheck = objwsSheetOne.Cells(1, 1).Value

    For x = 2 to TotalRowCountMaster
        On Error Resume Next
        If uniqueCodeCheck = objwsMaster.Cells(x, 1).Value Then
             objwsMaster.Rows(x).EntireRow.Delete
    Next

    objwb.Save
    objwb.Close

如果指定的单元格不等于其他工作表

0 个答案: