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

x32438

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

下載 (53.13 KB)

2012-9-27 01:03

我想在新的活頁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)

下載次數: 8

2012-9-27 01:09

感謝@@

mark15jill

回復 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)"

複製代碼

Hsieh

回復 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

複製代碼

x32438

謝謝兩位的解答~!