[發問] 內碼找不到 aj ? 我可能定義錯誤???

tomtracy

這是我之前所做的按廠家分發表 , 因業務需要我增設了很多欄位  可是不知是那里修改錯了  卻無法執行 請各位高手幫忙 謝謝 按廠家進行分發-6月.rar (17.19 KB)

下載次數: 8

2015-8-18 13:51

owen06

回復 1# tomtracy


    你for ah = 1 To NameCount之後下面的next 不應該是aj，然後with完畢之後下面沒有接end with

jackyq

大大把 aj 去掉
End Sub 上面插進一個 End With 就好啦

tomtracy

我去掉aj 把 End With插入 可是仍不能正確執行

jackyq

那大大想實現什麼呢

owen06

回復 4# tomtracy

大大這樣執行結果正確嗎？

1. Sub Macr4()
   
2. 
   
3. On Error Resume Next
   
4. 
   
5. Dim mySheetName As String
   
6. mySheetName = ActiveWorkbook.ActiveSheet.Name
   
7. 
   
8. For Each sht In ActiveWorkbook.Sheets
   
9. Application.DisplayAlerts = False
   
10. '關閉警告視窗
    
11. If sht.Name <> mySheetName Then sht.Delete
    
12. 
    
13. Application.DisplayAlerts = True
    
14. '恢復警告視窗
    
15. Next sht
    
16. 
    
17. 
    
18. With Sheets(mySheetName)
    
19. .Columns("s:ah").ClearContents
    
20. .Columns("C:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("R1"), Unique:=True
    
21. End With
    
22. 
    
23. Dim NameCount As Integer
    
24. NameCount = Sheets(mySheetName).Range("R1").End(xlDown).Row - 1
    
25. For ah = 1 To NameCount
    
26. ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    
27. ActiveSheet.Name = Sheets(mySheetName).Cells(ah + 1, 18)
    
28. Next
    
29. 
    
30. 
    
31. Dim myName As String
    
32. Sheets(mySheetName).Select
    
33. For aj = 1 To NameCount
    
34. myName = Range("R2")
    
35. MsgBox myName
    
36. Columns("s:ah").ClearContents
    
37. Columns("A:P").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    
38. "R1:R2"), CopyToRange:=Range("s1"), Unique:=False
    
39. Columns("s:ah").Copy Sheets(myName).Range("A1")
    
40. Range("R2").Delete Shift:=xlUp
    
41. Next aj
    
42. Sheets(mySheetName).Columns("s:ah").ClearContents
    
43. End Sub

複製代碼

tomtracy

回復 6# owen06

感謝您  比我之前使用情況更好  謝謝