下面是一个简单的VBA代码，用于统计A列中某个数据出现的次数：

```
Sub CountData()
Dim count As Integer
Dim data As String

count = 0
data = InputBox("请输入要统计的数据：")

For Each cell In Range("A1:A" & Cells(Rows.count, "A").End(xlUp).Row)
If cell.Value = data Then
count = count + 1
End If
Next cell

MsgBox "数据 " & data & " 出现了 " & count & " 次。"
End Sub
```

使用方法：

1. 打开Excel文件，按下Alt+F11打开VBA编辑器。
2. 在左侧的Project窗格中双击要操作的工作表，打开代码窗口。
3. 将上述代码复制粘贴到窗口中。
4. 按下F5运行代码，会弹出一个输入框，输入要统计的数据，点击确定即可得到结果。

注意事项：

1. 代码中的A列是指第一列，如果要统计其他列的数据，需要将代码中的A改为对应的列字母。
2. 如果要统计的数据是数字，需要将代码中的data变量的类型改为Long或Double。