VBA及函數--表格對應內容要如何設定

Sub T()
Dim i%, xR
Set xR = [H1]
i = [C3]
For Each c In [B6:D8]
If c(-3).Value = i Then c.Value = i Else c.Value = xR(i + 1, c(-3) + 1).Value
Next
End Sub
提供參考

2014-01-26 06:48:10 補充：
B6公式 (一式到底）
=IF(OFFSET(B6,-4,)=$C$3,$C$3,OFFSET($H$1,$C$3,B2))
右拉至D6,下拉至D8
～
Sub T1()
With Range("B6:D8")
.Formula = "=IF(OFFSET(B6,-4,)=$C$3,$C$3,OFFSET($H$1,$C$3,B2))"
'.Value = .Value
End With
End Sub
～
提供參考

2014-01-26 06:48:24 補充：
其中　OFFSET($H$1,$C$3,B2)　可換為
和其　大大　公式
VLOOKUP($C$3,$H$2:$Q$10,B2+1,FALSE))
cjw　大大　公式
INDEX($H$1:$Q$10,MATCH($C$3,$H$1:$H$10,),MATCH(B2,$H$1:$Q$1,)))
～
提供參考

2014-01-26 20:08:36 補充：
B6公式 (一式到底）
=IF(OFFSET(B6,-4,)=$C$3,$C$3,OFFSET($H$1,$C$3,B2))
右拉至D6,下拉至D8
～
VBA
Sub T1()
With Range("B6:D8")
.Formula = "=IF(OFFSET(B6,-4,)=$C$3,$C$3,OFFSET($H$1,$C$3,B2))"
'.Value = .Value
End With
End Sub
～
其中　OFFSET($H$1,$C$3,B2)　可換為
和其　大大　公式
VLOOKUP($C$3,$H$2:$Q$10,B2+1,FALSE))
cjw　大大　公式
INDEX($H$1:$Q$10,MATCH($C$3,$H$1:$H$10,),MATCH(B2,$H$1:$Q$1,)))
～
Sub T()
Dim i%, xR
Set xR = [H1]
i = [C3]
For Each c In [B6:D8]
' 如c往上數第4格值同[C3],c填入i; 如非,則填入表中[H1]下i+1列右c(-3)+1欄值
If c(-3).Value = i Then c.Value = i Else c.Value = xR(i + 1, c(-3) + 1).Value
Next
End Sub
～
餘請　參考 檔案
http://www.FunP.Net/774566

如果你很確定自己很想結婚
婚友社的確是一個有效率的管道
年紀越大壓力越大
以前我去婚友社時
年輕的女生機會總是比較多
時間總是不站在女生這邊的
所以如果你想婚的念頭已經確定
就去找一家評價好一點的婚友社!
行動吧!
這是我之前參加的婚友社我覺得不錯

或搜尋"紅娘李姐"

不過還是建議你自己去諮詢過看是否適合你!

=IF((ROW(A1)-1)*3+COLUMN(A1)=5,$S$13,OFFSET($H$1,MATCH($S$13,$H$2:$H$10,),SMALL(IF(ROW($1:$9)=$S$13,4^8,ROW($1:$9)),--MID("567408321",(ROW(A1)-1)*3+COLUMN(A1),1))))
陣列公式, S13是輸入 1~9

2014-01-23 09:31:53 補充：
http://www.FunP.Net/235199

B6公式=INDEX($H$1:$Q$10,MATCH($C$3,$H$1:$H$10,),MATCH(B2,$H$1:$Q$1,))
一般公式,複製到各格

請使用下列函數
=VLOOKUP($C$3,$H$2:$Q$10,B2+1,FALSE)