假設資料為
.cells.find找到批號為ABCD的位置，
並刪除相關資料(如圖片2~14列)
小弟的程式碼如下，但是會發生錯誤，請問怎麼修改呢？感謝！！
With UserForm1
If 資料批號.Value = "" Then
MsgBox "請先查詢資料", vbCritical + vbOKOnly, ""
Else
Set 刪除資料 = Sheet1.Cells.Find(What:=批號, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
With Sheet1
For i = -1 To 201
刪除資料.Offset(-10, i).Delete
刪除資料.Offset(-9, i).Delete
刪除資料.Offset(-8, i).Delete
刪除資料.Offset(-7, i).Delete
刪除資料.Offset(-6, i).Delete
刪除資料.Offset(-5, i).Delete
刪除資料.Offset(-4, i).Delete
刪除資料.Offset(-3, i).Delete
刪除資料.Offset(-2, i).Delete
刪除資料.Offset(-1, i).Delete
刪除資料.Offset(0, i).Delete
刪除資料.Offset(1, i)Delete
刪除資料.Offset(2, i).Delete
Next
End With
End If
End With |
發表於 2013-7-4 08:43
| 
