1

我需要帮助逐行计算某个单词并填充每列下的出现总数。现在,我的代码正在计算某个单词的总数,直到 GM 列以及该列之后的任何内容,我得到 #N/A。我不知道这是否应该发生。这是我到目前为止的代码。

Option Compare Text

Sub Count_Named_Entities()
Dim Sum_of_ABS01 As Long
Dim Sum_of_ABS02 As Long
Dim Sum_of_Academ As Long
Dim Sum_of_Active As Long
Dim Sum_of_AffGain As Long
Dim Sum_of_Affil As Long
Dim Sum_of_AffLoss As Long
Dim Sum_of_AffOth As Long
Dim Sum_of_AffPt As Long
Dim Sum_of_AffTot As Long
Dim Sum_of_ANI As Long
Dim Sum_of_Anomie As Long
Dim Sum_of_Aquatic As Long
Dim Sum_of_ArenaLw As Long
Dim Sum_of_Arousal As Long
Dim Sum_of_Begin As Long
Dim Sum_of_BldgPt As Long
Dim Sum_of_BodyPt As Long
Dim Sum_of_CARD As Long
Dim Sum_of_Causal As Long
Dim Sum_of_COLL As Long
Dim Sum_of_COLOR As Long
Dim Sum_of_COM As Long
Dim Sum_of_ConForm As Long
Dim Sum_of_ComnObj As Long
Dim Sum_of_Compare As Long
Dim Sum_of_Complet As Long
Dim Sum_of_DAV As Long
Dim Sum_of_Decreas As Long
Dim Sum_of_DIM As Long
Dim Sum_of_DIST As Long
Dim Sum_of_Doctrin As Long
Dim Sum_of_Econ01 As Long
Dim Sum_of_Econ02 As Long
Dim Sum_of_EMOT As Long
Dim Sum_of_EndsLw As Long
Dim Sum_of_EnlEnds As Long
Dim Sum_of_EnlGain As Long
Dim Sum_of_EnlLoss As Long
Dim Sum_of_EnlOth As Long
Dim Sum_of_EnlPt As Long
Dim Sum_of_EnlTot As Long
Dim Sum_of_EVAL01 As Long
Dim Sum_of_Eval02 As Long
Dim Sum_of_Exch As Long
Dim Sum_of_Exert As Long
Dim Sum_of_Exprsv As Long
Dim Sum_of_Fail As Long
Dim Sum_of_Fall As Long
Dim Sum_of_Feel As Long
Dim Sum_of_Female As Long
Dim Sum_of_Fetch As Long
Dim Sum_of_Finish As Long
Dim Sum_of_Food As Long
Dim Sum_of_FormLw As Long
Dim Sum_of_FREQ As Long
Dim Sum_of_Goal As Long
Dim Sum_of_Hostile As Long
Dim Sum_of_HU As Long
Dim Sum_of_IAV As Long
Dim Sum_of_If As Long
Dim Sum_of_Increas As Long
Dim Sum_of_IndAdj As Long
Dim Sum_of_Intrj As Long
Dim Sum_of_IPadj As Long
Dim Sum_of_Is_In_General_Inquirer As Long
Dim Sum_of_Kin As Long
Dim Sum_of_Know As Long
Dim Sum_of_Land As Long
Dim Sum_of_Legal As Long
Dim Sum_of_MALE As Long
Dim Sum_of_Means As Long
Dim Sum_of_MeansLw As Long
Dim Sum_of_Milit As Long
Dim Sum_of_Name As Long
Dim Sum_of_Nation As Long
Dim Sum_of_NatObj As Long
Dim Sum_of_NatrPro As Long
Dim Sum_of_Need As Long
Dim Sum_of_NegAff As Long
Dim Sum_of_Negate As Long
Dim Sum_of_Negativ As Long
Dim Sum_of_Ngtv As Long
Dim Sum_of_No As Long
Dim Sum_of_Nonadlt As Long
Dim Sum_of_NotLw As Long
Dim Sum_of_NUMB As Long
Dim Sum_of_Object As Long
Dim Sum_of_ORD As Long
Dim Sum_of_Ought As Long
Dim Sum_of_Our As Long
Dim Sum_of_Ovrst As Long
Dim Sum_of_Pain As Long
Dim Sum_of_Passive As Long
Dim Sum_of_Perceiv As Long
Dim Sum_of_Persist As Long
Dim Sum_of_PLACE As Long
Dim Sum_of_Pleasur As Long
Dim Sum_of_Polit01 As Long
Dim Sum_of_Polit02 As Long
Dim Sum_of_POS As Long
Dim Sum_of_PosAff As Long
Dim Sum_of_Positiv As Long
Dim Sum_of_PowAren As Long
Dim Sum_of_PowAuPt As Long  
Dim Sum_of_PowAuth As Long
Dim Sum_of_PowCon As Long
Dim Sum_of_PowCoop As Long
Dim Sum_of_PowDoct As Long
Dim Sum_of_PowEnds As Long
Dim Sum_of_Power As Long
Dim Sum_of_PowGain As Long
Dim Sum_of_PowLoss As Long
Dim Sum_of_PowOth As Long
Dim Sum_of_PowPtas As Long
Dim Sum_of_PowTot As Long
Dim Sum_of_Pstv As Long
Dim Sum_of_PtLw As Long
Dim Sum_of_Quality As Long
Dim Sum_of_Quan As Long
Dim Sum_of_Race As Long
Dim Sum_of_RcEnds As Long
Dim Sum_of_RcEthic As Long
Dim Sum_of_RcGain As Long
Dim Sum_of_RcLoss As Long
Dim Sum_of_RcRelig As Long
Dim Sum_of_RcTot As Long
Dim Sum_of_Region As Long
Dim Sum_of_Rel As Long
Dim Sum_of_Relig As Long
Dim Sum_of_Rise As Long
Dim Sum_of_Ritual As Long
Dim Sum_of_Role As Long
Dim Sum_of_Route As Long
Dim Sum_of_RspGain As Long
Dim Sum_of_RspLoss As Long
Dim Sum_of_RspOth As Long
Dim Sum_of_RspTot As Long
Dim Sum_of_Say As Long
Dim Sum_of_Self As Long
Dim Sum_of_SklAsth As Long
Dim Sum_of_SklOth As Long
Dim Sum_of_SklPt As Long
Dim Sum_of_SklTot As Long
Dim Sum_of_Sky As Long
Dim Sum_of_Social As Long
Dim Sum_of_SocRel As Long
Dim Sum_of_Solve As Long
Dim Sum_of_Space As Long
Dim Sum_of_Stay As Long
Dim Sum_of_Strong As Long
Dim Sum_of_Submit As Long
Dim Sum_of_SureLw As Long
Dim Sum_of_SV As Long
Dim Sum_of_Think As Long
Dim Sum_of_TIME01 As Long
Dim Sum_of_Time02 As Long
Dim Sum_of_TimeSpc As Long
Dim Sum_of_Tool As Long
Dim Sum_of_TranLw As Long
Dim Sum_of_Travel As Long
Dim Sum_of_TrnGain As Long
Dim Sum_of_TrnLoss As Long
Dim Sum_of_Try As Long
Dim Sum_of_Undrst As Long
Dim Sum_of_Vary As Long
Dim Sum_of_Vehicle As Long
Dim Sum_of_Vice As Long
Dim Sum_of_Virtue As Long
Dim Sum_of_Weak As Long
Dim Sum_of_WlbGain As Long
Dim Sum_of_WlbLoss As Long
Dim Sum_of_WlbPhys As Long
Dim Sum_of_WlbPsyc As Long
Dim Sum_of_WlbPt As Long
Dim Sum_of_WlbTot As Long
Dim Sum_of_WltOth As Long
Dim Sum_of_WltPt As Long
Dim Sum_of_WltTot As Long
Dim Sum_of_WltTran As Long
Dim Sum_of_Work As Long
Dim Sum_of_Yes As Long
Dim Sum_of_You As Long
Dim Sum_of_Bear As Long
Dim Sum_of_Ice As Long

Dim ActiveDocument As Object
Dim row As Integer
Dim txt As String

row = 3

Set ActiveDocument = CreateObject("Word.Document")

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

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

    Sum_of_ABS01 = CountChar(txt, "ABS")
    Sum_of_ABS02 = CountChar(txt, "ABS@")
    Sum_of_Academ = CountChar(txt, "Academ")
    Sum_of_Active = CountChar(txt, "Active")
    Sum_of_AffPt = CountChar(txt, "AffPt")
    Sum_of_AffTot = CountChar(txt, "AffTot")
    Sum_of_ANI = CountChar(txt, "ANI")
    Sum_of_Anomie = CountChar(txt, "Anomie")
    Sum_of_Aquatic = CountChar(txt, "Aquatic")
    Sum_of_ArenaLw = CountChar(txt, "ArenaLw")
    Sum_of_Arousal = CountChar(txt, "Arousal")
    Sum_of_Begin = CountChar(txt, "BeginS")
    Sum_of_BldgPt = CountChar(txt, "BldgP")
    Sum_of_BodyPt = CountChar(txt, "BodyPt")
    Sum_of_CARD = CountChar(txt, "CARD")
    Sum_of_Causal = CountChar(txt, "Causal")
    Sum_of_COLL = CountChar(txt, "COLL")
    Sum_of_COLOR = CountChar(txt, "COLOR")
    Sum_of_COM = CountChar(txt, "COM")
    Sum_of_ConForm = CountChar(txt, "ConForm")
    Sum_of_ComnObj = CountChar(txt, "ComnObj")
    Sum_of_Compare = CountChar(txt, "Compare")
    Sum_of_Complet = CountChar(txt, "DAV")
    Sum_of_DAV = CountChar(txt, "Complet")
    Sum_of_Decreas = CountChar(txt, "Decreas")
    Sum_of_DIM = CountChar(txt, "DIM")
    Sum_of_DIST = CountChar(txt, "DIST")
    Sum_of_Doctrin = CountChar(txt, "Doctrin")
    Sum_of_Econ01 = CountChar(txt, "Econ")
    Sum_of_Econ02 = CountChar(txt, "Econ@")
    Sum_of_EMOT = CountChar(txt, "EMOT")
    Sum_of_EndsLw = CountChar(txt, "EndsLw")
    Sum_of_EnlEnds = CountChar(txt, "EnlEnds")
    Sum_of_EnlGain = CountChar(txt, "EnlGain")
    Sum_of_EnlLoss = CountChar(txt, "EnlLoss")
    Sum_of_EnlOth = CountChar(txt, "EnlOth")
    Sum_of_EnlPt = CountChar(txt, "EnlPt")
    Sum_of_EnlTot = CountChar(txt, "EnlTot")
    Sum_of_EVAL01 = CountChar(txt, "EVAL")
    Sum_of_Eval02 = CountChar(txt, "Eval@")
    Sum_of_Exch = CountChar(txt, "Exch")
    Sum_of_Exert = CountChar(txt, "Exert")
    Sum_of_Exprsv = CountChar(txt, "Exprsv")
    Sum_of_Fail = CountChar(txt, "Failt")
    Sum_of_Fall = CountChar(txt, "Fall")
    Sum_of_Feel = CountChar(txt, "Feel")
    Sum_of_Female = CountChar(txt, "Female")
    Sum_of_Fetch = CountChar(txt, "Fetch")
    Sum_of_Finish = CountChar(txt, "Finish")
    Sum_of_Food = CountChar(txt, "Food")
    Sum_of_FormLw = CountChar(txt, "FormLw")
    Sum_of_FREQ = CountChar(txt, "FREQ")
    Sum_of_Goal = CountChar(txt, "Goal")
    Sum_of_Hostile = CountChar(txt, "Hostile")
    Sum_of_HU = CountChar(txt, "HU")
    Sum_of_IAV = CountChar(txt, "IAV")
    Sum_of_If = CountChar(txt, "If")
    Sum_of_Increas = CountChar(txt, "Increas")
    Sum_of_IndAdj = CountChar(txt, "IndAdj")
    Sum_of_Intrj = CountChar(txt, "Intrj")
    Sum_of_IPadj = CountChar(txt, "IPadj")
    Sum_of_Is_In_General_Inquirer = CountChar(txt, "Is In General Inquirer")
    Sum_of_Kin = CountChar(txt, "Kin")
    Sum_of_Know = CountChar(txt, "Know")
    Sum_of_Land = CountChar(txt, "Land")
    Sum_of_Legal = CountChar(txt, "Legal")
    Sum_of_MALE = CountChar(txt, "MALE")
    Sum_of_Means = CountChar(txt, "Means")
    Sum_of_MeansLw = CountChar(txt, "MeansLw")
    Sum_of_Milit = CountChar(txt, "Milit")
    Sum_of_Name = CountChar(txt, "Name")
    Sum_of_NatObj = CountChar(txt, "NatObj")
    Sum_of_NatrPro = CountChar(txt, "NatrPro")
    Sum_of_Need = CountChar(txt, "Need")
    Sum_of_NegAff = CountChar(txt, "NegAff")
    Sum_of_Negate = CountChar(txt, "Negate")
    Sum_of_Negativ = CountChar(txt, "Negativ")
    Sum_of_Ngtv = CountChar(txt, "Ngtv")
    Sum_of_No = CountChar(txt, "No")
    Sum_of_Nonadlt = CountChar(txt, "Nonadlt")
    Sum_of_NotLw = CountChar(txt, "NotLw")
    Sum_of_NUMB = CountChar(txt, "NUMB")
    Sum_of_Object = CountChar(txt, "Object")
    Sum_of_ORD = CountChar(txt, "ORD")
    Sum_of_Ought = CountChar(txt, "Ought")
    Sum_of_Our = CountChar(txt, "Our")
    Sum_of_Ovrst = CountChar(txt, "Ovrst")
    Sum_of_Pain = CountChar(txt, "Pain")
    Sum_of_Passive = CountChar(txt, "Passive")
    Sum_of_Perceiv = CountChar(txt, "Perceiv")
    Sum_of_Persist = CountChar(txt, "Persist")
    Sum_of_PLACE = CountChar(txt, "PLACE")
    Sum_of_Pleasur = CountChar(txt, "Pleasur")
    Sum_of_Polit01 = CountChar(txt, "Polit")
    Sum_of_Polit02 = CountChar(txt, "Polit@")
    Sum_of_POS = CountChar(txt, "POS")
    Sum_of_PosAff = CountChar(txt, "PosAff")
    Sum_of_Positiv = CountChar(txt, "Positiv")
    Sum_of_PowAren = CountChar(txt, "PowAren")
    Sum_of_PowAuPt = CountChar(txt, "PowAuPt")
    Sum_of_PowAuth = CountChar(txt, "PowAuth")
    Sum_of_PowCon = CountChar(txt, "PowCon")
    Sum_of_PowCoop = CountChar(txt, "PowCoop")
    Sum_of_PowDoct = CountChar(txt, "PowDoct")
    Sum_of_PowEnds = CountChar(txt, "PowEnds")
    Sum_of_Power = CountChar(txt, "Power")
    Sum_of_PowGain = CountChar(txt, "PowGain")
    Sum_of_PowLoss = CountChar(txt, "PowLoss")
    Sum_of_PowOth = CountChar(txt, "PowOth")
    Sum_of_PowPtas = CountChar(txt, "PowPtas")
    Sum_of_PowTot = CountChar(txt, "PowTot")
    Sum_of_Pstv = CountChar(txt, "Pstv")
    Sum_of_PtLw = CountChar(txt, "PtLw")
    Sum_of_Quality = CountChar(txt, "Quality")
    Sum_of_Quan = CountChar(txt, "Quan")
    Sum_of_Race = CountChar(txt, "Race")
    Sum_of_RcEnds = CountChar(txt, "RcEnds")
    Sum_of_RcEthic = CountChar(txt, "RcEthic")
    Sum_of_RcGain = CountChar(txt, "RcGain")
    Sum_of_RcLoss = CountChar(txt, "RcLoss")
    Sum_of_RcRelig = CountChar(txt, "RcRelig")
    Sum_of_RcTot = CountChar(txt, "RcTot")
    Sum_of_Region = CountChar(txt, "Region")
    Sum_of_Rel = CountChar(txt, "Rel")
    Sum_of_Relig = CountChar(txt, "Relig")
    Sum_of_Rise = CountChar(txt, "Rise")
    Sum_of_Ritual = CountChar(txt, "Ritual")
    Sum_of_Role = CountChar(txt, "Role")
    Sum_of_Route = CountChar(txt, "Route")
    Sum_of_RspGain = CountChar(txt, "RspGain")
    Sum_of_RspLoss = CountChar(txt, "RspLoss")
    Sum_of_RspOth = CountChar(txt, "RspOth")
    Sum_of_RspTot = CountChar(txt, "RspTot")
    Sum_of_Say = CountChar(txt, "Say")
    Sum_of_Self = CountChar(txt, "Self")
    Sum_of_SklAsth = CountChar(txt, "SklAsth")
    Sum_of_SklOth = CountChar(txt, "SklOth")
    Sum_of_SklPt = CountChar(txt, "SklPt")
    Sum_of_SklTot = CountChar(txt, "SklTot")
    Sum_of_Sky = CountChar(txt, "Sky")
    Sum_of_Social = CountChar(txt, "Social")
    Sum_of_SocRel = CountChar(txt, "SocRel")
    Sum_of_Solve = CountChar(txt, "Solve")
    Sum_of_Space = CountChar(txt, "Space")
    Sum_of_Stay = CountChar(txt, "Stay")
    Sum_of_Strong = CountChar(txt, "Strong")
    Sum_of_Submit = CountChar(txt, "Submit")
    Sum_of_SureLw = CountChar(txt, "SureLw")
    Sum_of_SV = CountChar(txt, "SV")
    Sum_of_Think = CountChar(txt, "Think")
    Sum_of_TIME01 = CountChar(txt, "TIME")
    Sum_of_Time02 = CountChar(txt, "Time@")
    Sum_of_TimeSpc = CountChar(txt, "TimeSpc")
    Sum_of_Tool = CountChar(txt, "Tool")
    Sum_of_TranLw = CountChar(txt, "TranLw")
    Sum_of_Travel = CountChar(txt, "Travel")
    Sum_of_TrnGain = CountChar(txt, "TrnGain")
    Sum_of_TrnLoss = CountChar(txt, "TrnLoss")
    Sum_of_Try = CountChar(txt, "Try")
    Sum_of_Undrst = CountChar(txt, "Undrst")
    Sum_of_Vary = CountChar(txt, "Vary")
    Sum_of_Vehicle = CountChar(txt, "Vehicle")
    Sum_of_Vice = CountChar(txt, "Vice")
    Sum_of_Virtue = CountChar(txt, "Virtue")
    Sum_of_Weak = CountChar(txt, "Weak")
    Sum_of_WlbGain = CountChar(txt, "WlbGain")
    Sum_of_WlbLoss = CountChar(txt, "WlbLoss")
    Sum_of_WlbPhys = CountChar(txt, "WlbPhys")
    Sum_of_WlbPsyc = CountChar(txt, "WlbPsyc")
    Sum_of_WlbPt = CountChar(txt, "WlbPt")
    Sum_of_WlbTot = CountChar(txt, "WlbTot")
    Sum_of_WltOth = CountChar(txt, "WltOth")
    Sum_of_WltPt = CountChar(txt, "WltPt")
    Sum_of_WltTot = CountChar(txt, "WltTot")
    Sum_of_WltTran = CountChar(txt, "WltTran")
    Sum_of_Work = CountChar(txt, "Work")
    Sum_of_Yes = CountChar(txt, "Yes")
    Sum_of_You = CountChar(txt, "You")
    Sum_of_Bear = CountChar(txt, "Bear")
    Sum_of_Ice = CountChar(txt, "ice")


    Worksheets("Sample_Output_2").Cells(row, 16).Resize(1, 185).Value = _
        Array(Sum_of_ABS01, Sum_of_ABS02, Sum_of_Academ, Sum_of_Active, Sum_of_AffPt, Sum_of_AffTot, Sum_of_ANI, Sum_of_Anomie, _
              Sum_of_Aquatic, Sum_of_ArenaLw, Sum_of_Arousal, Sum_of_Begin, Sum_of_BldgPt, Sum_of_BodyPt, Sum_of_CARD, Sum_of_Causal, _
              Sum_of_COLL, Sum_of_COLOR, Sum_of_COM, Sum_of_ConForm, Sum_of_ComnObj, Sum_of_Compare, Sum_of_Complet, Sum_of_DAV, _
              Sum_of_Decreas, Sum_of_DIM, Sum_of_DIST, Sum_of_Doctrin, Sum_of_Econ01, Sum_of_Econ02, Sum_of_EMOT, Sum_of_EndsLw, _
              Sum_of_EnlEnds, Sum_of_EnlGain, Sum_of_EnlLoss, Sum_of_EnlOth, Sum_of_EnlPt, Sum_of_EnlTot, Sum_of_EVAL01, Sum_of_Eval02, _
              Sum_of_Exch, Sum_of_Exert, Sum_of_Exprsv, Sum_of_Fail, Sum_of_Fall, Sum_of_Feel, Sum_of_Female, Sum_of_Fetch, Sum_of_Finish, _
              Sum_of_Food, Sum_of_FormLw, Sum_of_FREQ, Sum_of_Goal, Sum_of_Hostile, Sum_of_HU, Sum_of_IAV, Sum_of_If, Sum_of_Increas, _
              Sum_of_IndAdj, Sum_of_Intrj, Sum_of_IPadj, Sum_of_Is_In_General_Inquirer, Sum_of_Kin, Sum_of_Know, Sum_of_Land, _
              Sum_of_Legal, Sum_of_MALE, Sum_of_Means, Sum_of_MeansLw, Sum_of_Milit, Sum_of_Name, Sum_of_NatObj, Sum_of_NatrPro, _
              Sum_of_Need, Sum_of_NegAff, Sum_of_Negate, Sum_of_Negativ, Sum_of_Ngtv, Sum_of_No, Sum_of_Nonadlt, Sum_of_NotLw, Sum_of_NUMB, _
              Sum_of_Object, Sum_of_ORD, Sum_of_Ought, Sum_of_Our, Sum_of_Ovrst, Sum_of_Pain, Sum_of_Passive, Sum_of_Perceiv, _
              Sum_of_Persist, Sum_of_PLACE, Sum_of_Pleasur, Sum_of_Polit01, Sum_of_Polit02, Sum_of_POS, Sum_of_PosAff, Sum_of_Positiv, _
              Sum_of_PowAren, Sum_of_PowAuPt, Sum_of_PowAuth, Sum_of_PowCon, Sum_of_PowCoop, Sum_of_PowDoct, Sum_of_PowEnds, Sum_of_Power, _
              Sum_of_PowGain, Sum_of_PowLoss, Sum_of_PowOth, Sum_of_PowPtas, Sum_of_PowTot, Sum_of_Pstv, Sum_of_PtLw, Sum_of_Quality, _
              Sum_of_Quan, Sum_of_Race, Sum_of_RcEnds, Sum_of_RcEthic, Sum_of_RcGain, Sum_of_RcLoss, Sum_of_RcRelig, Sum_of_RcTot, _
              Sum_of_Region, Sum_of_Rel, Sum_of_Relig, Sum_of_Rise, Sum_of_Ritual, Sum_of_Role, Sum_of_Route, Sum_of_RspGain, _
              Sum_of_RspLoss, Sum_of_RspOth, Sum_of_RspTot, Sum_of_Say, Sum_of_Self, Sum_of_SklAsth, Sum_of_SklOth, Sum_of_SklPt, _
              Sum_of_SklTot, Sum_of_Sky, Sum_of_Social, Sum_of_SocRel, Sum_of_Solve, Sum_of_Space, Sum_of_Stay, Sum_of_Strong, _
              Sum_of_Submit, Sum_of_SureLw, Sum_of_SV, Sum_of_Think, Sum_of_TIME01, Sum_of_Time02, Sum_of_TimeSpc, Sum_of_Tool, Sum_of_TranLw, _
              Sum_of_Travel, Sum_of_TrnGain, Sum_of_TrnLoss, Sum_of_Try, Sum_of_Undrst, Sum_of_Vary, Sum_of_Vehicle, Sum_of_Vice, _
              Sum_of_Virtue, Sum_of_Weak, Sum_of_WlbGain, Sum_of_WlbLoss, Sum_of_WlbPhys, Sum_of_WlbPsyc, Sum_of_WlbPt, Sum_of_WlbTot, _
              Sum_of_WltOth, Sum_of_WltPt, Sum_of_WltTot, Sum_of_WltTran, Sum_of_Work, Sum_of_Yes, Sum_of_You, Sum_of_Bear, Sum_of_Ice)

    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
4

1 回答 1

1

试试这个代码:

Sub CountAll()
    Dim varWords As Variant
    Dim txt As String
    Dim row As Long
    Dim i As 

    varWords = Array( _
        "ABS01", "ABS02", "Academ", "Active", "AffGain", "Affil", "AffLoss", "AffOth", _
        "AffPt", "AffTot", "ANI", "Anomie", "Aquatic", "ArenaLw", "Arousal", "Begin", _
        "BldgPt", "BodyPt", "CARD", "Causal", "COLL", "COLOR", "COM", "ConForm", "ComnObj", _
        "Compare", "Complet", "DAV", "Decreas", "DIM", "DIST", "Doctrin", "Econ01", _
        "Econ02", "EMOT", "EndsLw", "EnlEnds", "EnlGain", "EnlLoss", "EnlOth", "EnlPt", _
        "EnlTot", "EVAL01", "Eval02", "Exch", "Exert", "Exprsv", "Fail", "Fall", "Feel", _
        "Female", "Fetch", "Finish", "Food", "FormLw", "FREQ", "Goal", "Hostile", "HU", _
        "IAV", "If", "Increas", "IndAdj", "Intrj", "IPadj", "Is_In_General_Inquirer", _
        "Kin", "Know", "Land", "Legal", "MALE", "Means", "MeansLw", "Milit", "Name", _
        "Nation", "NatObj", "NatrPro", "Need", "NegAff", "Negate", "Negativ", "Ngtv", _
        "No", "Nonadlt", "NotLw", "NUMB", "Object", "ORD", "Ought", "Our", "Ovrst", _
        "Pain", "Passive", "Perceiv", "Persist", "PLACE", "Pleasur", "Polit01", _
        "Polit02", "POS", "PosAff", "Positiv", "PowAren", "PowAuPt", "PowAuth", _
        "PowCon", "PowCoop", "PowDoct", "PowEnds", "Power", "PowGain", "PowLoss", _
        "PowOth", "PowPtas", "PowTot", "Pstv", "PtLw", "Quality", "Quan", "Race", _
        "RcEnds", "RcEthic", "RcGain", "RcLoss", "RcRelig", "RcTot", "Region", _
        "Rel", "Relig", "Rise", "Ritual", "Role", "Route", "RspGain", "RspLoss", _
        "RspOth", "RspTot", "Say", "Self", "SklAsth", "SklOth", "SklPt", "SklTot", _
        "Sky", "Social", "SocRel", "Solve", "Space", "Stay", "Strong", "Submit", _
        "SureLw", "SV", "Think", "TIME01", "Time02", "TimeSpc", "Tool", "TranLw", _
        "Travel", "TrnGain", "TrnLoss", "Try", "Undrst", "Vary", "Vehicle", "Vice", _
        "Virtue", "Weak", "WlbGain", "WlbLoss", "WlbPhys", "WlbPsyc", "WlbPt", _
        "WlbTot", "WltOth", "WltPt", "WltTot", "WltTran", "Work", "Yes", "You", _
        "Bear", "Ice")

    While Worksheets("Sample_Output_2").Cells(row, 1) <> ""
        txt = Worksheets("Sample_Output_2").Cells(row, 2).Value
        For i = 0 To UBound(varWords)
            Worksheets("Sample_Output_2").Cells(row, 16 + i) = _
                CountOccurrences(CStr(varWords(i)), txt)
        Next i
    Wend
End Sub

Private Function CountOccurrences(strWord As String, strText As String)
    CountOccurrences = UBound(Split(UCase(strText), UCase(strWord)))
End Function
于 2013-02-23T22:33:22.587 回答