返回列表 上一主題 發帖

[發問]產生新的活頁之後,如何計算出前一個活頁的特定資料地個數

x32438

帖子
3 
主題
1 
精華
0 
積分
18 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2012-6-23 
最後登錄
2014-12-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-9-27 01:09 | 只看該作者

[發問]產生新的活頁之後,如何計算出前一個活頁的特定資料地個數

這是書本上的範例檔,是在一個活頁表中抽取出不重複的資料至另一個新產生的活頁



我想在新的活頁B欄count中顯示出每一個商品的數量有幾個,請問有大大可以教我如何寫嗎?


Sub 抽取出販賣商品名稱()
    Dim 對象欄 As Range
   
    Set 對象欄 = Range("E3")
        
    Range(對象欄, 對象欄.End(xlDown)). _
        AdvancedFilter _
        Action:=xlFilterInPlace, _
        Unique:=True
   
    Worksheets.Add After:=ActiveSheet
    ActiveSheet.Previous.Activate
    Range(對象欄, 對象欄.End(xlDown)).Copy
    ActiveSheet.Next.Activate
    Range("A1").PasteSpecial
    Selection.Columns.AutoFit
    ActiveSheet.Previous.ShowAllData
   
    ActiveSheet.Range("B1") = "Count"
End Sub

抽取出不重複的資料.rar (20.62 KB)

感謝@@
收藏 分享
HI~你好呀

x32438

帖子
3 
主題
1 
精華
0 
積分
18 
點名
0  
作業系統
win 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2012-6-23 
最後登錄
2014-12-26 
4#
發表於 2012-10-13 15:05 | 只看該作者
謝謝兩位的解答~!
HI~你好呀

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-9-27 19:18 | 只看該作者
回復 1# x32438
如題:新增工作表後填入資料
  1. Sub Ex()
  2. Set dic = CreateObject("Scripting.Dictionary")
  3. With Sheet1
  4. ar = .Range("B3").CurrentRegion.Value
  5. For i = 2 To UBound(ar, 1)
  6.   dic(ar(i, 4)) = dic(ar(i, 4)) + ar(i, 6)
  7. Next
  8. End With
  9. With Sheets.Add(after:=Sheets(Sheets.Count))
  10. .[A1] = "品名": .[B1] = "COUNT"
  11.   .[A2].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
  12.   .[B2].Resize(dic.Count, 1) = Application.Transpose(dic.items)
  13. End With
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

mark15jill
　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生Rank: 3Rank: 3

帖子
852 
主題
79 
精華
0 
積分
918 
點名
0  
作業系統
Windows 7 , XP 
軟體版本
Office 2007, Office 2003,Office 2010,YoZo Office 
閱讀權限
50 
性別
男 
來自
宇宙 
註冊時間
2011-4-8 
最後登錄
2024-2-21 
2#
發表於 2012-9-27 09:37 | 只看該作者
回復 1# x32438
  1. 工作表1.Cells(2, 2) = "=COUNTIF(範例!E:E,工作表1!A2)"
  2. 工作表1.Cells(3, 2) = "=COUNTIF(範例!E:E,工作表1!A3)"
  3. 工作表1.Cells(4, 2) = "=COUNTIF(範例!E:E,工作表1!A4)"
  4. 工作表1.Cells(5, 2) = "=COUNTIF(範例!E:E,工作表1!A5)"
  5. 工作表1.Cells(6, 2) = "=COUNTIF(範例!E:E,工作表1!A6)"
複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題