目前的问题：
用我的代码部分工作，直到我添加额外的数据到Sheet2，现在当它失败和调试送我去：
Set partsheet = Worksheets("Sheet1").Range("A1", Range("A65536").End(xlUp))
这段代码的工具：
我基本都在不同工作表两列：我想比较与同类时，进口数据：
工作表Sheet1 - COLUMN1是工号
工作表Sheet1 - 列2是一个零件号
同样的工作号码，你可以有多个部件 - 这意味着就业人数重演在列1
Sheet2中 - COLUMN1是同样的工作号作为工作表Sheet1但数据是永不重复
Sheet2中 - 列2是具体到每个岗位数（所以为什么在这种情况下，就业数字不重复自己）的ID号
因此，我想导入Sheet2中的数据 - 列2使用COMMUN就业数据作为参考点。 当我将数据导入到工作表Sheet1 - 栏3的唯一ID号将不得不重复自己的就业数字在列1（Sheet1中）被重复 - 因此双for循环。
我的意思用来部分工作：
要开始使用代码只部分地工作，我认为这是由于这样的事实：在Sheet1中某项工作号码 - COLUMN1在Sheet2中没有相应的值 - 列1（数据心不是完美的）。 也许我需要为if语句的其他部分，但林不知道添加代码。
VBA代码：
Option Explicit
Sub testFil()
Dim Jobref_in_partsheet As Range
Dim Jobref_in_jobsheet As Range
Dim partsheet As Range
Dim jobsheet As Range
Dim MyRow As Long
Dim MyOtherRow As Long
Set partsheet = Worksheets("Sheet1").Range("A1", Range("A65536").End(xlUp))
Set jobsheet = Worksheets("Sheet2").Range("A1", Range("A65536").End(xlUp))
For Each Jobref_in_partsheet In partsheet
For Each Jobref_in_jobsheet In jobsheet
If Jobref_in_partsheet.Value = Jobref_in_jobsheet.Value Then
MyRow = Jobref_in_partsheet.Row
MyOtherRow = Jobref_in_jobsheet.Row
Worksheets("Sheet1").Cells(MyRow, 3) = Worksheets("Sheet2").Cells(MyOtherRow, 2)
Else
'Do nothing
End If
Next
Next
End Sub
我真的很感谢所有帮助我能得到。
