作者hungcheh (流雲)
看板Visual_Basic
標題[VBA ] For Next的錯誤...
時間Sat Sep 24 00:30:45 2011
請各位大大協助看一下下列程式有啥錯誤，
下列程式寫在excel的巨集裡，
主要功用是我每天會從公司的CRM程式裡轉出總表，
列表這個sheet有各個業務的標題，
希望用vba去在總表資料裡的每一個業務的第一列插入標題，
現在有錯誤訊息「有Next,卻沒有For」
有大大可以幫我看一下是那裡錯了嗎？....@@
感謝！！
Sub Macro5()
Sheets("列表").Select
For I = 2 To 20
UserName = Range("B" & I).Value
Rows(I).Select
Selection.Copy
If UserName <> "" Then
Sheets("總表").Select
Set UserCell = Worksheets("總表").Range("C:C").Find(UserName)
If UserCell <> "" Then
UserCell.EntireRow.Select
Selection.Insert SHIFT:=xlToUP
Sheets("列表").Select
End If
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.105.99.118
1F：→ bulldog:少了一個End if 09/24 00:39
2F：→ hulapig:倒數第二行 Next I 09/24 06:53
3F：→ choasX: Sheets("列表").Select 上面少end if 09/24 14:01
4F：→ hungcheh:Orz..原來少了一個end....謝謝..:D 09/24 19:18