返回列表 上一主題 發帖

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

nighthero

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
WIN 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣台北 
註冊時間
2013-6-18 
最後登錄
2015-7-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-3-11 00:09 | 只看該作者

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

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

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

收藏 分享

rouber590324

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

帖子
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
試試看
  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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

rouber590324

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

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

帖子
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的公式
  1. Option Explicit
  2. Sub Ex()
  3.     With Range("A2").Resize(, 10)
  4.         .FormulaR1C1 = "=R[-1]C"
  5.     End With
  6. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

rouber590324

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

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
WIN 7 
軟體版本
office 2007 
閱讀權限
10 
性別
男 
來自
台灣台北 
註冊時間
2013-6-18 
最後登錄
2015-7-9 
8#
發表於 2015-3-11 23:29 | 只看該作者
非常感謝~雖然VBA看不懂~

TOP

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題