作者hungcheh (流云)
看板Visual_Basic
标题Re: [VBA ] For Next的错误...
时间Mon Sep 26 16:30:49 2011
※ 引述《hungcheh (流云)》之铭言：
: 请各位大大协助看一下下列程式有啥错误，
: 下列程式写在excel的巨集里，
: 主要功用是我每天会从公司的CRM程式里转出总表，
: 列表这个sheet有各个业务的标题，
: 希望用vba去在总表资料里的每一个业务的第一列插入标题，
: 现在有错误讯息「有Next,却没有For」
: 有大大可以帮我看一下是那里错了吗？....@@
: 感谢！！
改掉少了一个end if的错误之後，还是不行，
但是已经改好了，贴出来给大家看看...:P
: 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 Is Nothing Then
Sheets("列表").Select
Else
: UserCell.EntireRow.Select
: Selection.Insert SHIFT:=xlToUP
: Sheets("列表").Select
End If
: End If
: Next
: End Sub
还有一个问题想问问大家，
现在我是用find去找总表中列表的keyword
如果这还想让总表中各个业务的资料顺序依照列表的顺序排列
我该怎麽去做排序比较好？？
感谢大家！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.105.99.118