返回列表 上一主題 發帖

[發問] [已解決]條件式篩選

planck_100

帖子
7 
主題
2 
精華
0 
積分
52 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2011-4-16 
最後登錄
2020-12-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-7 20:58 | 顯示全部帖子

[發問] [已解決]條件式篩選

本帖最後由 planck_100 於 2011-10-14 18:37 編輯

我有一筆資料如下
     A        B       C       D
1  蘋果    果汁     杯       3
2  香蕉    零售     斤       7
3  蘋果    零售     顆       2
4  芭樂    零售     個       3
5  葡萄    果汁     杯       1
6  香蕉    零售     斤       2
7  鳳梨    果汁     個       9


A欄為水果名稱
B欄為用途
C欄為單位
D欄為數量

經過篩選後再第九列產生篩選後的數值(不重複，並統計)

       A        B       C       D
9    蘋果    果汁     杯       3
10  香蕉    零售     斤       9
11  蘋果    零售     顆       2
12  芭樂    零售     個       3
13  葡萄    果汁     杯       1
14  鳳梨    果汁     個       9


請問用VBA要如何實現?   謝謝各位不吝嗇指教。
收藏 分享

planck_100

帖子
7 
主題
2 
精華
0 
積分
52 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2011-4-16 
最後登錄
2020-12-25 
2#
發表於 2011-10-7 23:18 | 顯示全部帖子
本帖最後由 planck_100 於 2011-10-7 23:28 編輯

謝謝您的指教。


程式已測試正常，再次感謝您的指導。

TOP

planck_100

帖子
7 
主題
2 
精華
0 
積分
52 
點名
0  
作業系統
win7 
軟體版本
sp1 
閱讀權限
20 
註冊時間
2011-4-16 
最後登錄
2020-12-25 
3#
發表於 2011-10-7 23:59 | 顯示全部帖子
本帖最後由 planck_100 於 2011-10-8 00:28 編輯

回復 2# oobird


    請教一個問題

[a9].Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))

A9 那個"9" 可以用變數取代嗎?



已解決

Range("a" & x).Resize(d.Count, 4) = Application.Transpose(Application.Transpose(d.items))

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題