如何用vba數據統計

⑴ 請教用VBA對Excel表格中的數據進行簡單統計

在宏里蠢肆面寫excel公喚讓式
對A列所有數據求和，把和賦值給和檔局a，如下寫：
a=worksheetfunction.sum("a:a")

使用count求個數
a=worksheetfunction.count("a:a")

其餘類似

提示：數組公式 自行搜索方法

⑵ 如何使用excel的VBA匯總數據

1，點擊選項，2，點擊自定氏蠢義功能區，3，納核前勾選開發工具
1，插入命令控制項；
2，修改控洞清件名稱及顯示名；

⑶ Excel VBA 按月統計數據

工作表的change事件：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("h2") Or Target = Range("i2") Then

Dim i As Integer

頌讓 For i = 2 To Range("a65536").End(xlUp).Row

野哪局 If Year(Cells(i, 1)) = [h2] And Month(Cells(i, 1)) = [i2] Then

k = k + Cells(i, 4)

End If

緩談 Next

[f2] = k

k = 0

End If

End Sub

⑷ VBA 如何統計一列中每一個數據出現的次數，並在另外兩列中分別顯示數據名稱和次數。 註：用VBA

使慶仿用字典實現，例如統計A列臘差燃數據顯示在C、D列的代碼如下：

setdb=createobject("scripting.dictionary")
fori=1toactivesheet.usedrange.rows.count
x=trim(cells(i,1))
db(x)=db(x)+1
nexti
i=1
foreachxindb.keys
cells(i,3)=x
輪虛cells(i,4)=db(x)
i=i+1
nextk

⑸ vba一鍵統計所在的文件夾里其他EXCEL的數值

參考下面處理

Excel如何把文件夾橋扒下所有文件塌爛表合並匯總文件敏衫昌內

⑹ 如何VBA 一鍵統計復數excel中的想要數據

Sub VBA名稱()
此行不是公式，刪除，上邊的意思是你這個宏的名稱，你創建宏宏會自己代入。
Sheets("工作表名稱").Range("表格內要復制的內容").Copy
此行不是公式，刪除，上邊的意思是對某個工作表的選定范圍（比如A1:C1）復制
Sheets("工作表名稱").[A1].PasteSpecial Paste:=xlValues
此行不是公式，刪除，上邊的意思是把跡稿復制的內容選擇數值粘貼在某個工作表的選定單元格
End Sub
按照以上的思路，不斷的增賣拍加公式就可以了，如果你要保存每次粘貼的結果，那麼在公式最前邊要增加插入行中州羨的公式：Sheets("工作表名稱").Rows("工作錶行數比如：1：1或者1：9").Insert Shift:=xlDown

⑺ excel vba 怎麼對去重後的數據進行個數統計

測試數據：

代碼文本：

Option Explicit

Sub 提重統計()

穗灶 Dim arr, db, i&, k, v

Set db = CreateObject("Scripting.Dictionary")

arr = Range("a1").CurrentRegion

For i = 2 To UBound(arr)

v = Trim(arr(i, 1))

k = Trim(arr(i, 2))

If Not db.Exists(k) Then db.Add k, CreateObject("Scripting.Dictionary")

db(k)(v) = True

Next i

ReDim arr(1 To db.Count, 1 To 2)

i = 0

For Each k In db.Keys

v = db(k).Count

銷族斗 i = i + 1

arr(i, 1) = k

arr(i, 2) = v

虧磨 Next k

Range("d3").Resize(i, 2) = arr

End Sub

⑻ 利用VBA統計EXCEL中的數據

Sub 統計()
Dim i As Integer
Dim a As Integer
Cells(1, 1) = "序號"虛豎指
Cells(1, 2) = "纖沖統計項目"
Cells(1, 3) = "統計總數"
For i = 2 To 12
a = 8 + i
Cells(i, 1) = i - 1
Cells(i, 2) = a
Cells(i, 3) = Application.WorksheetFunction.CountIf(Worksheets("sheet1").Range("A1:M12"), a)
Next i
End Sub
其差配實Application.WorksheetFunction.CountIf(Worksheets("sheet1").Range("A1:M12"), a)
也可以改成Application.CountIf(Worksheets("sheet1").Range("A1:M12"), a)

⑼ 如何用vba查找某區域內相同重復數據，並統計數量

Sub test()
Dim arr, c, a&
arr = Intersect(Range("a:d"), ActiveSheet.UsedRange)
Set Zd = CreateObject("scripting.dictionary")
For Each c In arr
If c <> "" Then a = Zd(c): Zd(c) = a + 1
Next
[f2].Resize(Zd.Count) = Application.Transpose(Zd.keys)
[g2].Resize(Zd.Count) = Application.Transpose(Zd.items)
End Sub

⑽ EXCEL中，如何用VBA統計某一區域空白單元格的數量，並填充內容

假設某一區域是A1:D10，填充的內容是"特定內容"，如下圖：