Sub Tao2000So()
Dim J As Long, Tmp As Integer, W As Integer, Rws As Double
Dim StrC As String, MyStr As String, C6 As String
Const fS As String = "GPE"
For J = 1 To 45
StrC = StrC & Right("0" & CStr(J), 2)
Next J
Randomize:
Sheet2.Columns("B:B").ClearContents
MyStr = fS: Sheet2.[b1].Value = fS
Do
For J = 1 To 999
Tmp = 9 + (Rnd() * 9) \ 1
If Tmp Mod 2 = 0 Then Tmp = Tmp + 1
If Tmp > 14 Then
StrC = Mid(StrC, Tmp, 10) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp + 10, Len(StrC))
Else
StrC = Mid(StrC, Tmp + 10, Len(StrC)) & Left(StrC, Tmp - 1) & Mid(StrC, Tmp, 10)
End If
Next J
For J = 1 To 42 Step 12
C6 = Mid(StrC, J, 12)
For W = 1 To 12 Step 2
MyStr = MyStr & Mid(C6, W, 2)
Next W
Sheet2.[B65500].End(xlUp).Offset(1).Value = MyStr
MyStr = fS
Next J
Rws = Sheet2.[b2].End(xlDown).Row
If Rws > 2590 Then Exit Do
Loop
End Sub
