如何比较两个不同的Excel工作簿中的列

阿维丹

我有一个Excel工作簿,其中有两个工作表“任务”和“城市”。我需要将“任务”表中用于验证记录的代码与“城市”表中的代码进行比较。

我能够做到如下:

Dim CityString As String
Dim CityArray() As String

'Get the last row
'Dim lastRow As Integer
LastRow = Sheets("Task").UsedRange.Rows.Count
nLastRowSheet2 = Sheets("Cities").UsedRange.Rows.Count

Dim c As Range
Dim d As Range
Dim e As Variant

'Turn screen updating off to speed up macro code.
'User won't be able to see what the macro is doing, but it will run faster.
Application.ScreenUpdating = False

For Each c In Worksheets("Task").Range("A2:A" & LastRow)
    CityString = c
    CityArray() = Split(CityString, ";")
    For Each e In CityArray()
        e = Trim(e)

        Dim rngFnder As Range
        On Error Resume Next

            Set rngFnder = Sheets("Cities").Range("A2:A" & nLastRowSheet2).Find(e)

            If rngFnder Is Nothing Then
                c.Interior.Color = vbRed
            End If

        On Error GoTo 0
    Next
Next

现在,我还有另一个要求,我必须在两个不同的工作簿中执行相同的操作。

(“任务”和“城市”工作表位于两个不同的工作簿上)

谁能告诉我;我必须对上述代码进行哪些所有更改?

保罗·凯利

当您说“在两个不同的excelssheets上”时,我猜您是说它们在不同的Excel工作簿文件中?

使用以下行时,是指活动工作簿中的“任务”表。

Worksheets("Task").Range("A2:A" & LastRow)

您应该指定工作簿,以避免写错工作簿。使用thisWorkbook指的是带有代码的工作簿,例如

ThisWorkbook.Worksheets("Task").Range("A2:A" & LastRow)

要访问任何打开的工作簿(包括当前工作簿),请使用

Workbooks("example.xls").Worksheets("Task").Range("A2:A" & LastRow)

如果工作簿已关闭,则可以使用

dim wrk as Workbook
set wrk = Workbooks.Open("C:\Docs\example.xls") 
wrk.Worksheets("Task").Range("A2:A" & LastRow)

如果您想了解有关VBA中工作簿的更多信息,可以在这里阅读有关它们的信息。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

如何比较两个工作簿

如何比较同一工作簿但不同工作表中的两个命名范围?

比较两个不同 Excel 表中的两列

VBA:如何比较两个不同工作表中的两列

Excel VBA比较两个工作簿中的值,然后复制数据

如何比较两个不同表中的两列

比较不同工作簿中的两列

比较两个工作簿中的A列,查找相邻的单元格数据

如何比较两个 Excel 文件中的不同值

比较两个 Excel 工作簿并将匹配的数据复制到第三个工作簿

比较两个不同工作表中的两列,然后突出显示差异

如何在两个不同的Excel工作表中比较两个单元格区域?

比较两个 Excel 工作簿:VBA 数组不相等

比较和更新两个不同的 excel 文件中的 excel 列

比较两个不同工作表中的 2 列

如何比较两个不同文件的两列

Excel:如何比较来自2个不同工作簿的工作表之间的差异

比较两个不同表中的两列?

如何比较pyspark中两个不同数据帧中的两列

如何在VBA中的不同工作表中比较两个值?

使用VBA匹配excel中两个不同工作表的两列的值

比较两个不同的excel文件中的值?

比较excel中不同行的两个表

VBscript比较给定行的两个Excel工作表中某些列的内容

如何比较两个不同的熊猫数据框中的两列?

如何比较两个不同数据框中的两列并计算出现次数

如何在比较两个不同的 excel 列时选择唯一值?

如何比较两个表与一列在PowerShell中略有不同的列?

如何比较两个不同的文件和两个不同的列bash