作者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