用vbs写一段在A列中使用countif公式

以下是使用VBScript在A列中使用COUNTIF公式的示例代码：

```
Dim objExcel, objSheet
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objSheet = objExcel.Workbooks.Add().Worksheets(1)

'在A列中输入数据
objSheet.Range("A1").Value = "Apple"
objSheet.Range("A2").Value = "Banana"
objSheet.Range("A3").Value = "Apple"
objSheet.Range("A4").Value = "Orange"
objSheet.Range("A5").Value = "Apple"

'在A6单元格中使用COUNTIF公式
objSheet.Range("A6").Formula = "=COUNTIF(A1:A5,""Apple"")"

'保存并关闭Excel应用程序
objExcel.ActiveWorkbook.SaveAs "C:\example.xlsx"
objExcel.Quit
```

这段代码将在A列中输入一些数据，并在A6单元格中使用COUNTIF公式计算"A"列中出现的"Apple"的次数。最后，将结果保存在C:\example.xlsx文件中，并关闭Excel应用程序。