Board logo

標題: [發問]產生新的活頁之後,如何計算出前一個活頁的特定資料地個數 [打印本頁]
作者: x32438    時間: 2012-9-27 01:09     標題: [發問]產生新的活頁之後,如何計算出前一個活頁的特定資料地個數

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

[attach]12611[/attach]

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

[attach]12612[/attach]

感謝@@
作者: mark15jill    時間: 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)"
複製代碼
作者: Hsieh    時間: 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
複製代碼
作者: x32438    時間: 2012-10-13 15:05

謝謝兩位的解答~!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)