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