[發問] 請問不連續的儲存格做公式填滿的動作，代碼能簡化嗎

freeffly

1.公式不同如下如果填滿動作一樣有辦法簡化嗎
2.公式相同不連續填滿的動作一樣能簡化嗎(v7 v14 v16 v18 公式相同)
曾經天真的想用union+array的方式處理
發現不行，不知道有沒有人有好方法簡略下面的代碼

1. Sub 銷貨公式()
   
2.     Application.ScreenUpdating = False
   
3.     nC = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column
   
4.     nR = Sheets("銷貨").Range("A65536").End(xlUp).Row
   
5.     nC1 = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column - 2
   
6.     x = [iv1].End(xlToLeft).Column - 21
   
7.    
   
8. 
   
9.    
   
10.     With Sheets("全部")
    
11.         With .Range("V2")
    
12.         .FormulaR1C1 = _
    
13.         "=GETPIVOTDATA(""本幣銷貨金額"",銷貨!R3C1,""月份"",R1C)"
    
14.         .AutoFill .Resize(1, x)
    
15.         End With
    
16.         With .Range("V9")
    
17.         .FormulaR1C1 = _
    
18.         "=SUMPRODUCT((銷貨!R5C" & nC & ":R" & nR & "C" & nC & "=""營業課"")*(銷貨!R4C3:R4C" & nC1 & "=R1C),銷貨!R5C3:R" & nR & "C" & nC1 & ")"
    
19.         .AutoFill .Resize(1, x)
    
20.         End With
    
21.         
    
22.         With .Range("V4")
    
23.         .FormulaR1C1 = "=GETPIVOTDATA(""合計未收帳款"",帳齡!R1C1,""月份"",R1C)"
    
24.         .AutoFill .Resize(1, x)
    
25.         End With
    
26.         With .Range("V7")
    
27.         .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
    
28.         .AutoFill .Resize(1, x)
    
29.         End With
    
30.         
    
31.         With .Range("V14")
    
32.             .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
    
33.             .AutoFill .Resize(1, x)
    
34.         End With
    
35.         
    
36.         With .Range("V16")
    
37.             .FormulaR1C1 = "=R[-14]C-R[-7]C"
    
38.             .AutoFill .Resize(1, x)
    
39.         End With
    
40.         With .Range("V18")
    
41.             .FormulaR1C1 = "=R[-14]C-R[-7]C"
    
42.             .AutoFill .Resize(1, x)
    
43.         End With
    
44.         With .Range("V21")
    
45.             .FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
    
46.             .AutoFill .Resize(1, x)
    
47.         End With
    
48. end with
    
49. End Sub

複製代碼

freeffly

回復 3# stillfish00


    剛仔細看一下
   應該不會花很久時間
   測試結果可以
   這種解決方式不錯
   學到一種
   相當感謝

freeffly

回復 3# stillfish00


    先收下看看，謝謝了
   明天測試完再回覆結果
   不過用for each好像很慢
   因為我剛剛有用for each 及 for next的方式去跑別的比較起來
   for each好像曼暸些

stillfish00

回復 1# freeffly

1. Sub 銷貨公式()
   
2.     Application.ScreenUpdating = False
   
3.     nC = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column
   
4.     nR = Sheets("銷貨").Range("A65536").End(xlUp).Row
   
5.     nC1 = Sheets("銷貨").Range("A4").End(xlToRight).Offset(, 1).Column - 2
   
6.     x = [iv1].End(xlToLeft).Column - 21
   
7.    
   
8.     With Sheets("全部")
   
9.         .Range("V2").Resize(1, x).FormulaR1C1 = "=GETPIVOTDATA(""本幣銷貨金額"",銷貨!R3C1,""月份"",R1C)"
   
10.         .Range("V9").Resize(1, x).FormulaR1C1 = "=SUMPRODUCT((銷貨!R5C" & nC & ":R" & nR & "C" & nC & "=""營業課"")*(銷貨!R4C3:R4C" & nC1 & "=R1C),銷貨!R5C3:R" & nR & "C" & nC1 & ")"
    
11.         .Range("V4").Resize(1, x).FormulaR1C1 = "=GETPIVOTDATA(""合計未收帳款"",帳齡!R1C1,""月份"",R1C)"
    
12.         
    
13.         For Each area In .Range("V7,V14,V21").Areas
    
14.             area.Resize(, x).FormulaR1C1 = "=VLOOKUP(R1C20,單頭資料!C1:C45,45,0)"
    
15.         Next
    
16.         For Each area In .Range("V16,V18").Areas
    
17.             area.Resize(, x).FormulaR1C1 = "=R[-14]C-R[-7]C"
    
18.         Next
    
19.     End With
    
20. End Sub

複製代碼

stillfish00

2.公式相同不連續填滿的動作一樣能簡化嗎(v7 v14 v16 v18 公式相同) ...
freeffly 發表於 2013-6-19 15:49

v7 v14 v16 v18 公式不同阿?
你的代碼跑完結果是正確的嗎?