Snasui Excel Forum

ลองปรับมาใช้โค้ดอีกแบบดูครับ Sub CopyData()
Dim cell As Range
Dim rw As Long
For Each cell In Worksheets("Sheet1").Range("A:A").Cells
If cell <> "" Then
rw = Lookup(cell.Value)
If rw <> 0 Then
Worksheets("Sheet1").Cells(cell.Row, "A").Resize(, 2).Value = _
Worksheets("Sheet2").Cells(rw, "A").Resize ...

ปรับเป็น Public Sub find_value()
Dim end_row As Long
Sheets("Sheet1").Select
Range("a1").Select
end_row = ActiveCell.End(xlDown).Row
Dim val As String
Dim i As Long
For i = 1 To end_row
val = Range("a" & i).Value
Sheets("Sheet2").Select
Columns("a:a").Select
On Error GoTo skipfind:
Cells.Find ...

ผมมีปัญหากับการใช้ on error goto ร่วมกับ การใช้ For ..... Next ครับ
คือผมต้องการเขียนโค้ดให้หาคำที่กำหนดขึ้นใน sheet1 ไปหาใน sheet2 เพื่อเอา value มากรอกใน sheet1

ตัวอย่าง
ผมมีคำอยู่ใน sheet1 ที่ตำแหน่ง A1:A8
ผมต้องการใช้คำที่ตำแหน่ง A1 ไปค้นหาใน Sheet2 ที่ collumn A หากพบให้ นำค่าใน collumn B ...