Question

我有3个工作表：WUR，Homologation和read。

我想阅读＆＃34; WUR＆＃34;中的第1列，当我找到第一个值时，我想与＆＃34; Homologation＆＃34;中的第一列进行比较，如果值相同则将其放入工作表3中的公司栏中的值，＆＃34;阅读＆＃34;。此代码来自工作表3中的Button。

我试试这个：

Sub Read_Click()

      Dim x As Integer
      Application.ScreenUpdating = False

      NumRows = ActiveWorkbook.Worksheets("WUR").Range("A1", ActiveWorkbook.Worksheets("Homologation").Range("A1").End(xlDown)).Rows.Count

      Range("A1").Select

      For x = 1 To NumRows

      Next

End Sub

使用我的代码，我尝试从＆＃34; WUR＆＃34;的第一列中找到第一个值。但是我的代码在Sheet 3中工作，而不是在我想要的第一个WorkSheet中。

Answer 1

可能是因为

     MSTest("./Tests/*.UnitTests.dll");

您没有指定必须选择A1的工作表。如果您当前打开了另一个工作表，则会在那里进行选择。尝试像上面一行那样定义它

Range("A1").Select

如何比较不同工作表中的两列并将值放在另一个工作表中？ VBA

1 个答案: