讓我好幾天都不能睡覺的問題 如何儲存在同一儲存格出現的多筆資料?

kiwimenmate

請問各位 先進 先知 有智慧的大老們  請救救小弟吧 一個讓我三天三夜都沒辦法吃飯的問題

我在 a1 儲存格 收到 糖的價錢  a2 儲存格 收到巧克力價錢  , 每天我都會在a2自動(dde)收到好多筆各種不同巧克力的價錢(例如 50 元 62 元 64元等等....)(由外部引進的資料dde)每一筆巧克力的價錢 都會在a1收到相對的一個糖的價錢(也是引進外部資料DDE) 像是當巧克力 收到50 元十  糖價會收到3元的報價  ;當巧克力 62 元十  糖價會收到7元的報價 ; 我希望能當一整天下來後 把當天所有出現的巧克力報價跟相對應的糖價都記錄下來 ,重復的不要, 然後依巧克力的價錢大小,由小到大的排序.

例如當天a1 出現了十八種不同的巧克力報價 ,我希望在c1:c18 列出所有巧克力報價 並且在d1:d18能列出糖的報價
希望能找到高手 幫我解決這各問提 讓我能好好睡覺    非常感謝

ps : 我有試著用vlookup , 但不能用  ,我也有爬了好多文 試著用vba .但網路上大多的需求都是每隔一段時間例如一分鐘來記錄資料的........ 跟我要的不同 .......我並不知道巧克力隔多少時間會報新價一次 有時很快 十幾秒  有時很慢 好多分鐘 ,所以用時間區隔來記錄歷史資料的 似乎跟我要的不同

GBKEE

回復 1# kiwimenmate
上傳你的範例檔案試試看

Hsieh

回復 1# kiwimenmate
DDE只會觸發 Worksheet_Calculate
所以，利用A1是否重複做判斷即可

1. Private Sub Worksheet_Calculate()
   
2. If IsError(Application.Match([A1], [C:C], 0)) Then
   
3. [C65536].End(xlUp).Offset(1, 0).Resize(, 2) = Application.Transpose([A1:A2].Value)
   
4. Range("C1").CurrentRegion.Offset(1).Sort key1:=[C2], header:=xlNo
   
5. End If
   
6. End Sub

複製代碼