你可以尝试以下VBScript代码来实现在Excel的A列中使用COUNTIF公式： ```vbscript Dim xlApp, xlBook, xlSheet Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlBook = xlApp.Workbooks.Add() Set xlSheet = xlBook.Worksheets(1) ' 假设数据从第2行开始，可根据需求进行调整 Dim startRow startRow = 2 ' 待计算的单元格范围 Dim rngData Set rngData = xlSheet.Range("A" & startRow & ":A" & xlSheet.Rows.Count) ' COUNTIF 公式 Dim formula formula = "=COUNTIF(A:A, ""某个条件"")" ' 将公式应用到每个单元格 rngData.Formula = formula ' 释放对象 Set rngData = Nothing Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing ``` 请注意，上述代码中的"某个条件"需要根据实际情况进行替换，以匹配你想要统计的条件。此外，还需根据实际需求调整起始行号（startRow）。 希望对你有所帮助！如有更多问题，请随时提问。