This course will teach participants about installing and configuring Python, syntax, importing, statements, types, strings, booleans, files, lists, tuples, comprehensions, functions, and classes.
Do more with
This will alleviate me wedding through everything
Sub filterNcopy()
Range("B1:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).FormulaR1C1 = _
"=if(AND(MID(RC[-1],28,2)=""JJ"",NOT(ISNA(MATCH(MID(RC[-1],36,3),'MASTER AIRPORTS'!C[-1],0)))),"""",false)"
Range("B1:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).Value = Range("B1:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).Value
Range("B1:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).SpecialCells(xlCellTypeBlanks).Offset(, -1).Copy Sheets("JJ").Range("A1")
Range("B1:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).ClearContents
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial