Andy Newhouse techenby

## if_exists
=IF(ISERROR(VLOOKUP(A1,[Workbook1.xlsx]Sheet1!$A$1:$A$197624, 1, FALSE)),FALSE,TRUE )

## SplitInto15CellsPerColumn
Sub SplitInto15CellsPerColumn()
  Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  vArrIn = Range("A1:A" & LastRow)
  ReDim vArrOut(1 To 25000, 1 To Int(LastRow / 25000) + 1)
  For X = 0 To LastRow - 1
    vArrOut(1 + (X Mod 25000), 1 + Int(X / 25000)) = vArrIn(X + 1, 1)
  Next
  Range("B1").Resize(25000, UBound(vArrOut, 2)) = vArrOut
End Sub

## 0_reuse_code.js
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console
	Sub SplitInto15CellsPerColumn()
	Dim X As Long, LastRow As Long, vArrIn As Variant, vArrOut As Variant
	LastRow = Cells(Rows.Count, "A").End(xlUp).Row
	vArrIn = Range("A1:A" & LastRow)
	ReDim vArrOut(1 To 25000, 1 To Int(LastRow / 25000) + 1)
	For X = 0 To LastRow - 1
	vArrOut(1 + (X Mod 25000), 1 + Int(X / 25000)) = vArrIn(X + 1, 1)
	Next
	Range("B1").Resize(25000, UBound(vArrOut, 2)) = vArrOut
	End Sub
	// Use Gists to store code you would like to remember later on
	console.log(window); // log the "window" object to the console