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

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

7^#

發表於 2015-3-11 15:40 | 只看該作者

DEAR GBKEE
感謝指導 THANKS*10000

羅

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-3-11 11:34 | 只看該作者

回復 5# rouber590324
用R1C1的公式

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

5^#

發表於 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

羅

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-3-11 11:01 | 只看該作者

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

羅

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2015-3-11 08:42 | 只看該作者

回復 1# nighthero
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

2^#

發表於 2015-3-11 08:38 | 只看該作者

DEAR SIR
試試如下

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

羅