Re: [VBA ] For Next的錯誤...
※ 引述《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
討論串 (同標題文章)