在Excel中按行計算「與號」和「感嘆號」的行數

Question

我需要關於如何統計Excel中文本中「和號」和感嘆號的數量的幫助。我只能得到第一行，但值不更新。這是我迄今爲止的代碼。謝謝。

Sub Display_Readability_Scores() 
    Dim Stats As Variant 
    Dim Words As String 
    Dim Characters As String 
    Dim Paragraphs As String 
    Dim Sentences As String 
    Dim Sentences_per_paragraph As String 
    Dim Words_per_sentence As String 
    Dim Characters_per_word As String 
    Dim Ratio_of_passive_sentences As String 
    Dim Flesch_Reading_Ease_score As String 
    Dim Flesch_Kincaid_Grade_Level_score As String 
    Dim Coleman_Liau_Readability_Score As String 
    Dim ActiveDocument As Object 
    Dim row As Integer 
    Dim column As Integer 
    Dim amp As String 

    row = 2 

    Set ActiveDocument = CreateObject("Word.Document") 

    Do While Worksheets("Sheet1").Cells(row, 1) <> "" 

    ActiveDocument.Content = Worksheets("Sheet1").Cells(row, 2) 

    column = 3 

    Words = ActiveDocument.Content.ReadabilityStatistics(1).Value 
    Characters = ActiveDocument.Content.ReadabilityStatistics(2).Value 
    Paragraphs = ActiveDocument.Content.ReadabilityStatistics(3).Value 
    Sentences = ActiveDocument.Content.ReadabilityStatistics(4).Value 
    Sentences_per_paragraph = ActiveDocument.Content.ReadabilityStatistics(5).Value 
    Words_per_sentence = ActiveDocument.Content.ReadabilityStatistics(6).Value 
    Characters_per_word = ActiveDocument.Content.ReadabilityStatistics(7).Value 
    Ratio_of_passive_sentences = ActiveDocument.Content.ReadabilityStatistics(8).Value 
    Flesch_Reading_Ease_score = ActiveDocument.Content.ReadabilityStatistics(9).Value 
    Flesch_Kincaid_Grade_Level_score = ActiveDocument.Content.ReadabilityStatistics(10).Value 

    amp = Application.WorksheetFunction.CountIf("Worksheets("Sheet1").Cells(row, 2), "&")  

    For Each Stats In Worksheets("Sheet1").Cells(row, 2) 

     Worksheets("Sheet1").Cells(row, column) = Words 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Characters 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Paragraphs 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Sentences 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Sentences_per_paragraph 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Words_per_sentence 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Characters_per_word 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Ratio_of_passive_sentences 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Flesch_Reading_Ease_score 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = Flesch_Kincaid_Grade_Level_score 
     column = column + 1 

     Worksheets("Sheet1").Cells(row, column) = amp 

    row = row + 1 

    Next Stats 

    Loop  
End Sub 

Answer 1

Sub Display_Readability_Scores() 
    Dim Stats As Variant 
    Dim Words As String 
    Dim Characters As String 
    Dim Paragraphs As String 
    Dim Sentences As String 
    Dim Sentences_per_paragraph As String 
    Dim Words_per_sentence As String 
    Dim Characters_per_word As String 
    Dim Ratio_of_passive_sentences As String 
    Dim Flesch_Reading_Ease_score As String 
    Dim Flesch_Kincaid_Grade_Level_score As String 
    Dim Coleman_Liau_Readability_Score As String 
    Dim ActiveDocument As Object 
    Dim row As Integer 
    Dim column As Integer 
    Dim amp As Long, ex As Long 

    Dim RS As Object, txt As String 

    row = 2 

    Set ActiveDocument = CreateObject("Word.Document") 

    Do While Worksheets("Sheet1").Cells(row, 1) <> "" 

     txt = Worksheets("Sheet1").Cells(row, 2).Value 
     ActiveDocument.Content = txt 

     Set RS = ActiveDocument.Content.ReadabilityStatistics 

     Words = RS(1).Value 
     Characters = RS(2).Value 
     Paragraphs = RS(3).Value 
     Sentences = RS(4).Value 
     Sentences_per_paragraph = RS(5).Value 
     Words_per_sentence = RS(6).Value 
     Characters_per_word = RS(7).Value 
     Ratio_of_passive_sentences = RS(8).Value 
     Flesch_Reading_Ease_score = RS(9).Value 
     Flesch_Kincaid_Grade_Level_score = RS(10).Value 

     amp = CountChar(txt, "&") 
     ex = CountChar(txt, "!") 

     Worksheets("Sheet1").Cells(row, 3).Resize(1, 12).Value = _ 
       Array(Words, Characters, Paragraphs, Sentences, Sentences_per_paragraph, _ 
       Words_per_sentence, Characters_per_word, Ratio_of_passive_sentences, _ 
       Flesch_Reading_Ease_score, Flesch_Kincaid_Grade_Level_score, amp, ex) 

     row = row + 1 
    Loop 
End Sub 

Function CountChar(txt As String, char As String) As Long 
    CountChar = Len(txt) - Len(Replace(txt, char, "")) 
End Function