[發問] 不連續條件的自動填滿問題?

nighthero

因為格子裡的公式不是連續條件，直接下拉會變成區塊複製的狀況。

試了好久也爬了文，一直找不到解法，想請問論壇大大們~

下載 (47.85 KB)
001

2015-3-11 00:05

rouber590324

DEAR SIR
試試如下

=OFFSET($A$1,(ROW()+1)*2-4,,,)

GBKEE

回復 1# nighthero
試試看

1. Sub Ex()
   
2.     With Range("B1:B3")
   
3.         .Replace "=", "--", xlPart   '"=" 替換為 "--"字串,消除公式
   
4.         .AutoFill Destination:=.Resize(10)
   
5.         .Resize(10).Replace "--", "=", xlPart '"--"字串 替換為 "=" 轉回為公式
   
6.     End With
   
7. End Sub

複製代碼

rouber590324

DEAR   GBKEE  大大
   您提供之方式真好.感謝指導   THANKS*10000

rouber590324

DEAR   GBKEE  大大
請教相同條件  列改欄  之 VBA 如何書寫
  A1=1  B1=2  C1=3  D1=4  E1=5  F1=6 .........
公式 A2=A1   B2=C1  C2=E1 自動依A2 B2 C2 模式導後續公式.
煩不吝賜教  THANKS*10000

GBKEE

回復 5# rouber590324
用R1C1的公式

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("A2").Resize(, 10)
   
4.         .FormulaR1C1 = "=R[-1]C"
   
5.     End With
   
6. End Sub

複製代碼

rouber590324

DEAR  GBKEE
感謝指導  THANKS*10000

nighthero

非常感謝~雖然VBA看不懂~