[算表] vba傳回資料錯誤跳過問題？

[ptguitar (佩蒂吉他)]

軟體:excel

版本:2007

我有一個範圍

會比對某個工作表去複製過到另外一個

假設我設定在sheet2
a
b
x
c

把sheet3的第一列符合上面的就複製到sheet1

但是若是中間有錯誤 用on error resume next

複製到sheet1的話中間就會有空一列

我的程式如下

遇到錯誤該怎麼下那一段?

Sub test()
Dim orrange As Range
Set orrange = Worksheets("sheet3").UsedRange
orrange.Range("A:D").Copy Worksheets("sheet1").Range("A1")
For i = 1 To Worksheets("sheet2").Range("A1").End(xlDown).Row
Sheets("sheet2").Select
j = Application.Match(Range("A" & i).Text, orrange.Rows(1), 0)
On Error GoTo ErrorHandler
Sheets("sheet1").Select
orrange.Columns(j).Copy Range("E1").Offset(0, i - 1)
ErrorHandler:
這段不知道怎麼寫
Resume Next
Next i
End Sub




檔案：

https://drive.google.com/open?id=0BwCgrQhGgaw7ckRWU0hqajZZSlE

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.6.249
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1495057839.A.DD0.html
→ soyoso: 空一欄為range("e1").offset()內變數i產生，可以range.end
→ soyoso: 重新判斷第1列最右欄有值儲存格再offset
→ ptguitar: 感謝S大~