You need to tell the Range.RemoveDuplicates method what column to use. Additionally, since you have expressed that you have a header row, you should tell the .RemoveDuplicates method that. Sub dedupe_abcd() Dim icol As Long With Sheets(“Sheet1”) ‘<-set this worksheet reference properly! icol = Application.Match(“abcd”, .Rows(1), 0) With .Cells(1, 1).CurrentRegion .RemoveDuplicates Columns:=icol, Header:=xlYes End With … Read more
This function accepts both ranges and arrays, both horizontal and vertical Function TEXTJOIN(delim As String, skipblank As Boolean, arr) Dim d As Long Dim c As Long Dim arr2() Dim t As Long, y As Long t = -1 y = -1 If TypeName(arr) = “Range” Then arr2 = arr.Value Else arr2 = arr End … Read more
Another way =IF(SUMPRODUCT(–(NOT(ISERR(SEARCH({“Gingrich”,”Obama”,”Romney”},C1)))))>0,”1″,””) Also, if you keep a list of values in, say A1 to A3, then you can use =IF(SUMPRODUCT(–(NOT(ISERR(SEARCH($A$1:$A$3,C1)))))>0,”1″,””) The wildcards are not necessary at all in the Search() function, since Search() returns the position of the found string.
I think what you want is something like: =INDEX(B:B,MATCH(C2,A:A,0)) I should mention that MATCH checks the position at which the value can be found within A:A (given the 0, or FALSE, parameter, it looks only for an exact match and given its nature, only the first instance found) then INDEX returns the value at that … Read more
VBA editor is not Unicode. In order to have Unicode characters in it, you need to use ChrW$, e.g. Dim Rupee As String Rupee = ChrW$(&h20A8&) Also see Unicode string literals in VBA.