nighthero

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: WIN 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣台北
註冊時間: 2013-6-18
最後登錄: 2015-7-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

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

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

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

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

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 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,,,)

羅

TOP

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元的贊助,人人有能力.

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

4^#

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

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

羅

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 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

羅

TOP

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元的贊助,人人有能力.

TOP

rouber590324

高中生 Rank: 3 Rank: 3

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

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

7^#

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

DEAR GBKEE
感謝指導 THANKS*10000

羅

TOP

nighthero

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: WIN 7
軟體版本: office 2007
閱讀權限: 10
性別: 男
來自: 台灣台北
註冊時間: 2013-6-18
最後登錄: 2015-7-9

8^#

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

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

TOP

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]