我需要帮助逐行计算某个单词并填充每列下的总出现次数。现在，我的代码是计算某个单词的总数，直到列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
答案 0 :(得分：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