[已解决]为什么没有效果呢 代码

苗凱

球大师  搭救

最佳答案

月排行榜 / 总排行榜

顺⑦.zì繎。

2014-3-1 10:45

1. Sub 工序核对()
   
2. Dim i As Long
   
3. lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   
4. lrow2 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
   
5.     ar = Sheet1.Range("b2:c" & lrow)
   
6.     br = Sheet2.Range("a1:a" & lrow2)
   
7.         For i = 1 To UBound(br)
   
8.             For j = 1 To UBound(ar)
   
9.                 If br(i, 1) = ar(j, 2) Then
   
10.                     br(i, 1) = ar(j, 1)
    
11.                     GoTo 100
    
12.                 End If
    
13.             Next j
    
14.              br(i, 1) = ""
    
15. 100:
    
16.         Next i
    
17.     Sheet2.[b1].Resize(UBound(br)) = br
    
18. End Sub
    
19. 
    

复制代码

跳转到最佳答案楼层

顺⑦.zì繎。

有附件没说明。不知道你的需求

苗凱

顺⑦.zì繎。 发表于 2014-3-1 10:16
有附件没说明。不知道你的需求

在表2中 核对表1的工亿 并记录表1的行号   不好意思忘了要求了

dsmch

苗凱 发表于 2014-3-1 10:20
在表2中 核对表1的工亿 并记录表1的行号   不好意思忘了要求了

模拟几个结果，方便理解问题。

苗凱

dsmch 发表于 2014-3-1 10:29
模拟几个结果，方便理解问题。

...........

hwc2ycy

1.         For j = 1 To 85
   
2.             If Sheets("Sheet1").Cells(i, 3) = Sheets("Sheet2").Cells(j, 1) Then
   
3.                 Exit For
   
4.             End If
   
5.         Next j
   
6.         If j = 85 Then

复制代码

这里逻辑有问题。本来你是要检测的，如果循环是正常结束的，J应该是86了，你改成if j=86试试。

苗凱

hwc2ycy 发表于 2014-3-1 10:34
这里逻辑有问题。本来你是要检测的，如果循环是正常结束的，J应该是86了，你改成if j=86试试。

还是不行   斑竹在看看  。、、

hwc2ycy

结果已经有了，看看单元格有没有变化呀。

hwc2ycy

1. Sub 工序核对()
   
2.     Dim i As Long
   
3.     n = Cells.Find("*", , , , 1, 2).Row
   
4.     l = 2
   
5.     For i = 2 To n
   
6.         For j = 1 To 85
   
7.             If Sheets("Sheet1").Cells(i, 3) = Sheets("Sheet2").Cells(j, 1) Then
   
8.                 Exit For
   
9.             End If
   
10.         Next j
    
11.         If j = 86 Then
    
12.             Sheets("Sheet2").Cells(1, l) = i
    
13.             l = l + 1
    
14.         End If
    
15.     Next i
    
16.     MsgBox l
    
17. End Sub
    

复制代码

l不是变成3了嘛，说明只有一条符合要求。

苗凱

hwc2ycy 发表于 2014-3-1 10:40
结果已经有了，看看单元格有没有变化呀。

还是不行   不是这样的