返回列表下一主題上一主題發帖

[發問] 請問怎樣尋找相同的資料

john2006168

　暱稱: jjjohn

中學生 Rank: 2

帖子: 181
主題: 66
精華: 0
積分: 256
點名: 0
作業系統: WINDOW7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2010-5-4
最後登錄: 2025-4-3

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-26 00:21 | 顯示全部帖子

[發問] 請問怎樣尋找相同的資料

本帖最後由 john2006168 於 2011-8-27 17:48 編輯

請問 ,我有2個 sheets,用sheet1的part no,尋找資料庫找sheet2(資料庫)相同的part no,如找到在sheet1 填上資料庫的"ref no",

但是資料庫內有些相同的part no有2個ref.,請問我應該點改下列程序,我是新手請老師指導.

Sub testchecking()

test.rar (7.8 KB)

Dim i As Integer
Dim j As Integer
Dim RANGE As String

For i = 3 To Sheet1.RANGE("c65536").End(xlUp).Row
For j = 2 To Sheet2.RANGE("E65536").End(xlUp).Row

If Sheet1.Cells(i, 3).Value = Sheet2.Cells(j, 5).Value Then

      Sheet1.Cells(i, 12).Value = Sheet2.Cells(j, 2).Value

      ElseIf Sheet1.Cells(i, 3).Value <> Sheet2.Cells(j, 5).Value Then
Sheet1.Cells(i, 12).Value = "No received"

ElseIf Sheet1.Cells(i, 2).Value = "" Then Sheet1.Cells(i, 12).Value = ""

End If

If Sheet1.Cells(i, 3).Value = Sheet2.Cells(j, 5).Value Then

Sheet1.Cells(i, 12).Value = Sheet2.Cells(j, 2).Value
Sheet1.Cells(i, 13).Value = Sheet2.Cells(j, 1).Value

i = i + 1
End If
Next
Next

End Sub