[VBA ] For Next的錯誤...

看板Visual_Basic作者hungcheh (流雲)時間14年前 (2011/09/24 00:30)推噓0(0推 0噓 4→)

留言4則, 4人參與討論串1/2 (看更多)

請各位大大協助看一下下列程式有啥錯誤，下列程式寫在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

→

bulldog

09/24 00:39, , 1^F

09/24 00:39, 1^F

→

hulapig

09/24 06:53, , 2^F

09/24 06:53, 2^F

→

choasX

09/24 14:01, , 3^F

09/24 14:01, 3^F