@nicael Commands: alive, utc, listcommands, help, xkcdrandomnumber, xkcd, random, randomint, randomchoice, shuffle, detectlang, translate, translationchain, translationswitch, stop, disable, enable, ban, unban, delete, time, showtime, link, islink, removelink, addlinkexplanation, explainlink, removelinkexplanation, viewspells, showlatest10, latestword, lastword, setlatestword, rmword, reply, retry, continue, award, emptyqueue, removespell, gameban, gameunban
2
Sub Demo()
Dim rng As Range, i As Integer
Set rng = Range("A1", "A5")
i = 1
Do Until i > rng.Rows.Count
With Range("D1")
If .Value = "" Then
.Value = rng.Range("A" & i)
Else
.Value = .Value & "OR" & rng.Range("A" & i)
End If
End W...
