excel

Question

我在第28行（如果声明）收到错误“”。我不确定是什么问题，因为我已正确定义所有内容并确保路径是正确的。有人可以帮忙吗？我正在尝试从一个工作表到另一个工作表为每个用户抓取相应的组。这是我的代码：

for each ColValue1 in objWorksheet1.Range("A1:A" & intlastrow1)
    introw1= introw1+1
    for each ColValue2 in objWorksheet2.Range("A1:A" & intLastRow2)
        introw2 = introw2+2
        if ColValue1 = ColValue2 then
            ...

Answer 1

您循环的单元格应声明为范围。然后比较它们的值。

Dim ws As Excel.Worksheet
Set ws = ActiveWorkbook.Sheets("Sheet1")

Dim ColValue1  As Range
Dim ColValue2  As Range

Set ColValue1 = ws.Range("A1")
Set ColValue2 = ws.Range("A2")

If ColValue1.Value = ColValue2.Value Then
    MsgBox "They are the same"
Else
    MsgBox "They are not the same"
End If