　暱稱: 小溫
　頭銜: Dr.

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-11-25 20:04 | 只看該作者

[發問] 如何自動取代新的內容資料?

如附檔，謝謝大大!

book.rar (5.91 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 96
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-11-25 20:39 | 只看該作者

只有在另一欄位顯示應取代的實際值
E2=IF(COUNTIF(Sheet2!$A:$A,Sheet1!$A2)>0,VLOOKUP(Sheet1!$A2,Sheet2!$A:$C,5-COLUMN(B$1),0),Sheet1!C2)
向右向下複製
若要直接取代表格內資料須VBA輔助

學海無涯_不恥下問

TOP

winston219

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

3^#

發表於 2010-11-25 22:28 | 只看該作者

謝謝Hsieh大大! 的確用VBA較為方便呢~

TOP

baa168

中學生 Rank: 2

帖子: 119
主題: 14
精華: 0
積分: 138
點名: 0
作業系統: XP
軟體版本: SP3
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-6
最後登錄: 2019-5-4

4^#

發表於 2010-12-2 13:36 | 只看該作者

這個公式是陣列的嗎?
感謝分享哦

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

5^#

發表於 2023-3-15 08:40 | 只看該作者

本帖最後由 Andy2483 於 2023-3-15 08:47 編輯

回復 1# winston219
回復 2# Hsieh

謝謝前輩
今天後學藉此主題練習字典基本用法(帶資料表陣列列號)到目標表陣列,請各位前輩指教

Sheet2資料表:

Sheet1結果表執行前:

執行結果:

Option Explicit
Sub Test()
Dim Brr, Crr, Y, i&, T$
'↑宣告變數:(Brr,Crr,Y)是通用型變數,i是長整數,T是字串變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y這通用型變數是字典
Brr = Sheets(1).UsedRange
'↑令Brr這通用型變數是二維陣列以索引號1的工作表有使用儲存格值帶入
Crr = Sheets(2).UsedRange
'↑令Crr這通用型變數是二維陣列以索引號2的工作表有使用儲存格值帶入
For i = 2 To UBound(Crr): Y(Trim(Crr(i, 1))) = i: Next
'↑設順迴圈!i從2到 Crr陣列縱向最大索引列號,
'令i迴圈列第1欄Crr陣列值去除前後空白字元當key,Item是迴圈數i(列號)納入Y字典
For i = 2 To UBound(Brr)
'↑設順迴圈!i從2到 Brr陣列縱向最大索引列號
T = Trim(Brr(i, 1))
'↑令T這字串變數是 i迴圈列第1欄Brr陣列值去除前後空白字元的新字串
If Y.Exists(T) Then
'↑如果以T變數查Y字典裡有這key ?
   Brr(i, 3) = Crr(Y(T), 3): Brr(i, 4) = Crr(Y(T), 2)
   '↑令i迴圈列第3欄Brr陣列值是 Y(T)列第3欄Crr陣列值
   'Y(T)是 T變數查Y字典回傳item值
   '↑令i迴圈列第4欄Brr陣列值是 Y(T)列第2欄Crr陣列值
End If
Next
Sheets(1).[G1].Resize(UBound(Brr), 4) = Brr
'↑令索引號1的工作表從 [G1]開始擴展向下 Brr陣列縱向最大索引列號數列,
'向右擴展 4欄,這擴展範圍的儲存格以Brr陣列值帶入
Set Y = Nothing: Erase Brr, Crr
'↑令釋放變數
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP