Option Explicit

Function Lng2AB32$(ByVal N#)
      Dim i&
      For i = 1 To 32
          Lng2AB32 = Chr$(66 + (N / 2 = Fix(N / 2))) & Lng2AB32
          N = Fix(N / 2)
      Next i
End Function

Function ConcatRng$(rng As Range)
     Dim x
     For Each x In rng.Value
         If x <> "" Then ConcatRng = ConcatRng & Lng2AB32$(Val(x))
     Next x
End Function

Sub ExtractWords()
     Dim i&, j&, m$, oDict, s$
     s = ConcatRng(Range("A1:A65000"))
     Set oDict = CreateObject("Scripting.Dictionary")
     For i = 1 To Len(s)
         For j = 0 To Len(s) - i
             m = Mid$(s$, i, j + 1)
             If Not oDict.Exists(m) Then oDict.Item(m) = m: Exit For
         Next j
         i = i + j
     Next i
     Range("D3").Resize(oDict.Count, 1) = Application.Transpose(oDict.Keys)
End Sub

Function CountWords&(s$)
     Dim i&, j&, m$, oDict
     Set oDict = CreateObject("Scripting.Dictionary")
     For i = 1 To Len(s)
         For j = 1 To Len(s) - i + 1
             m = Mid$(s$, i, j)
             If Not oDict.Exists(m) Then oDict.Item(m) = m: Exit For
         Next j
         i = i + j - 1
     Next i
     CountWords = oDict.Count
End Function

Sub preobrazovanie()
     Dim N&, i&, a#, j&, b#
     j = 1
     N = Worksheets("Последовательность").Range("C1")
     For i = 1 To N
         a = Worksheets("Последовательность").Cells(j, 1)
         b = Round(a * 2 ^ 32)
         Worksheets("ЛемпельЗив").Cells(j, 1) = b
         j = j + 1
     Next i
End Sub

Sub Generator()
Randomize
Dim a As Integer
Dim i As Integer
a = Worksheets("Последовательность").Range("C1")
For i = 1 To a
         Worksheets("Последовательность").Cells(i, 1) = Rnd
  Next
  End Sub