All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
' assemble unique FoRs from FoRArts into UniqFoRsArr Dim UniqFoRsArr(), FoRArtCounter, UniqueCounter, Test, NumRecs, AddRec, tempArr ReDim UniqFoRsArr(1, 1) NumRecs = 1 'tracks number of rows in UniqFoRsArr AddRec = True 'discriminates whether to add new row to UniqFoRsArr For FoRArtCounter = 1 To UBound(FoRArts, 1) 'FoRArts is list of arts related to strMainFoR For Each FieldItem In Array(10, 13, 16) Test = FoRArts(FoRArtCounter, FieldItem) If Test <> "" And Test <> strMainFoR Then 'caters for blanks and matches with strMainFoR For UniqueCounter = 1 To UBound(UniqFoRsArr, 2) 'cycle thru UniqFoRsArr If UniqFoRsArr(1, UniqueCounter) = Test Then AddRec = False 'if FoR exists then don't add new record End If Next UniqueCounter If AddRec Then UniqFoRsArr(1, NumRecs) = Test 'add the record NumRecs = NumRecs + 1 'increment row count in UniqFoRsArr ReDim Preserve UniqFoRsArr(1, NumRecs) ' need to transpose End If End If AddRec = True Next FieldItem Next FoRArtCounter ReDim Preserve UniqFoRsArr(1, UBound(UniqFoRsArr, 2) - 1) 'remove trailing row tempArr = Application.Transpose(UniqFoRsArr) UniqFoRsArr = tempArr ' now UniqFoRsArr contains only unique list of FoRs End Sub
|Incorporating a number range, not cell range into search like 15271 - 15278||4||25|
|How can I run an Excel macro from a command line||6||28|
|52/53 week year end date formula||5||33|
|Excel -- increase row height through cell entry (via VBA)||3||6|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!