標題: [發問] 不連續條件的自動填滿問題? [打印本頁]

---

作者: nighthero    時間: 2015-3-11 00:09     標題: 不連續條件的自動填滿問題?

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

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

[attach]20412[/attach]

---

作者: rouber590324    時間: 2015-3-11 08:38

DEAR SIR
試試如下

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

---

作者: GBKEE    時間: 2015-3-11 08:42

回復 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    時間: 2015-3-11 11:01

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

---

作者: rouber590324    時間: 2015-3-11 11:08

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    時間: 2015-3-11 11:34

回復 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    時間: 2015-3-11 15:40

DEAR  GBKEE
感謝指導  THANKS*10000

---

作者: nighthero    時間: 2015-3-11 23:29

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)