[發問] 請問AutoFill問題

ken759727

請問小弟vba如下，
比對日期＆貼上這部分處理其他分頁都沒問題
但是往下填滿欄位的功能卻無法執行在其他分頁[紅色部分]
不知道是哪邊寫錯了。

Worksheets("0051資料庫").Range("EA320:FQ320").Select
Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
Worksheets("0051資料庫").Range("EA320:FQ" & i).Select

1. Dim i As Integer
   
2. Private Sub CommandButton1_Click()
   
3. For i = 22 To 10000
   
4. 
   
5. '比對日期貼上
   
6. If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
   
7. Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
   
8. Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value
   
9. 
   
10. 
    
11. '貼上後填滿公式
    
12. Worksheets("0050資料庫").Range("DR320:FE320").Select
    
13. Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
    
14. Worksheets("0050資料庫").Range("DR320:FE" & i).Select
    
15. 
    
16. Worksheets("0051資料庫").Range("EA320:FQ320").Select
    
17. Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
    
18. Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
    
19. 
    
20. Worksheets("0050資料庫").Range("E14").Select
    
21. 
    
22. GoTo stockup
    
23. End If
    
24. Next
    
25. 
    
26. stockup:
    
27. End Sub

複製代碼

GBKEE

回復 1# ken759727
程式碼沒有錯誤
但是往下填滿欄位的功能卻無法執行在其他分頁     是何意思
Worksheets("0051資料庫").Range("EA320:FQ320").Select  工作表名稱的問題是嗎?

ken759727

回復 2# GBKEE

GBKEE   我有上傳檔案了
請您觀看...我不知道我哪裡出了問題

0051資料庫  是工作表名稱

在0050都可執行 貼上與向下填滿工作表

但是在0051只能做貼上...另一項功能使用了就出錯

GBKEE

回復 3# ken759727
程式中  Range("????").Select  前面有指定工作表
如Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
此Worksheets("0051資料庫")  必須是作用中的工作表
所以這一行 Worksheets("0051資料庫").Activate 使工作表為作用中

1. Dim i As Integer
   
2. Private Sub CommandButton1_Click()
   
3. For i = 22 To 10000
   
4. '比對日期貼上
   
5. If Worksheets("0050資料庫").Range("A20") = Worksheets("0050資料庫").Range("A" & i) Then
   
6. Worksheets("0050資料庫").Range("B" & i & ":DQ" & i).Value = Worksheets("0050資料庫").Range("B20:DQ20").Value
   
7. Worksheets("0051資料庫").Range("A" & i & ":DZ" & i).Value = Worksheets("0051資料庫").Range("A20:DZ20").Value
   
8. '貼上後填滿公式
   
9. Worksheets("0050資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
   
10. Worksheets("0050資料庫").Range("DR320:FE320").Select
    
11. Selection.AutoFill Destination:=Worksheets("0050資料庫").Range("DR320:FE" & i), Type:=xlFillDefault
    
12. Worksheets("0050資料庫").Range("DR320:FE" & i).Select
    
13. 
    
14. Worksheets("0051資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
    
15. Worksheets("0051資料庫").Range("EA320:FQ320").Select
    
16. Selection.AutoFill Destination:=Worksheets("0051資料庫").Range("EA320:FQ" & i), Type:=xlFillDefault
    
17. Worksheets("0051資料庫").Range("EA320:FQ" & i).Select
    
18. 
    
19. Worksheets("0050資料庫").Activate                           '****要加上這行 選擇為作用中的工作表
    
20. Worksheets("0050資料庫").Range("E14").Select
    
21. GoTo stockup
    
22. End If
    
23. Next
    
24. stockup:
    
25. End Sub

複製代碼