作者ptguitar (佩蒂吉他)
看板Office
标题[算表] vba传回资料错误跳过问题?
时间Thu May 18 05:50:36 2017
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1495057839.A.DD0.html
1F:→ soyoso: 空一栏为range("e1").offset()内变数i产生,可以range.end 05/18 07:19
2F:→ soyoso: 重新判断第1列最右栏有值储存格再offset 05/18 07:20
3F:→ ptguitar: 感谢S大~ 05/19 06:18