We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Sub CompareData() 'Decalre Variable Dim Adr As String 'Address of Range containing Comparison data ' Define Column for Comparison Adr = Range(Cells(2, 5), Cells(1, 5).End(xlDown)).Address Debug.Print "=OR(EXACT(TRIM(RC1)," & Adr & "))" 'analyse if formula is correct 'Select Cell for formula Range("B2").Select 'Array Formula for Comparison ActiveCell.FormulaArray = "=OR(EXACT(TRIM(RC1)," & Adr & "))" End Sub
Join the community of 500,000 technology professionals and ask your questions.