如题，需实现功能：从数组中取四个值，最多允许两个重复，且重复数字在规定字符串中，要得到数字1/数字2*数字3/数字4的值等于（小数点后8位相等）或近似等于（小数点后最少4位相等）9个数字的9个字符串，还要求数字1+数字2>数字3 + 20且数字3+数字4>数字2 +20。Sub jssj()
Dim gqglb1 As Double, gqglb2 As Double, gqglb3 As Double, gqglb4 As Double, gqglb5 As Double, fdglb1 As Double, fdglb2 As Double, fdglb3 As Double, fdglb4 As Double
Dim gcglb1 As String, gcglb2 As String, gcglb3 As String, gcglb4 As String, gcglb5 As String, fcglb1 As String, fcglb2 As String, fcglb3 As String, fcglb4 As String
Dim jg1 As Double, jg2 As Double, jg4 As Double, jg3 As String, jg7 As Double, jg6 As Double, jg5 As Double
Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i6 As Long, i7 As Long, i8 As Long, i9 As Long, i10 As Long
Dim fcglb1z As String, fcglb14 As String, fcglb15 As String, fcglb16 As String, fcglb17 As String
Dim fcglb2z As String, fcglb24 As String, fcglb25 As String, fcglb26 As String, fcglb27 As String
Dim fcglb3z As String, fcglb34 As String, fcglb35 As String, fcglb36 As String, fcglb37 As String
Dim fcglb4z As String, fcglb44 As String, fcglb45 As String, fcglb46 As String, fcglb47 As String
Dim gcglb1z As String, gcglb14 As String, gcglb15 As String, gcglb16 As String, gcglb17 As String
Dim gcglb2z As String, gcglb24 As String, gcglb25 As String, gcglb26 As String, gcglb27 As String
Dim gcglb3z As String, gcglb34 As String, gcglb35 As String, gcglb36 As String, gcglb37 As String
Dim gcglb4z As String, gcglb44 As String, gcglb45 As String, gcglb46 As String, gcglb47 As String
Dim gcglb5z As String, gcglb54 As String, gcglb55 As String, gcglb56 As String, gcglb57 As String
Dim fdglb14 As Double, fdglb15 As Double, fdglb16 As Double, fdglb17 As Double
Dim fdglb24 As Double, fdglb25 As Double, fdglb26 As Double, fdglb27 As Double
Dim fdglb34 As Double, fdglb35 As Double, fdglb36 As Double, fdglb37 As Double
Dim fdglb44 As Double, fdglb45 As Double, fdglb46 As Double, fdglb47 As Double
Dim gqglb14 As Double, gqglb15 As Double, gqglb16 As Double, gqglb17 As Double
Dim gqglb24 As Double, gqglb25 As Double, gqglb26 As Double, gqglb27 As Double
Dim gqglb34 As Double, gqglb35 As Double, gqglb36 As Double, gqglb37 As Double
Dim gqglb44 As Double, gqglb45 As Double, gqglb46 As Double, gqglb47 As Double
Dim gqglb54 As Double, gqglb55 As Double, gqglb56 As Double, gqglb57 As Double
gqglb1 = 1.32758621
gqglb2 = 0.96551724
gqglb3 = 1.42758621
gqglb4 = 0.86276135
gqglb5 = 0.8276242
fdglb1 = 0.31578947
fdglb2 = 1.31578947
fdglb3 = 0.2
fdglb4 = 1.2
StartTime = Timer
glb = "29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,86,87,88,89,90,91,93,94,97,98,99,100,116"
cfgl = "29,30,60,80,100,116" '允许重复字符串
Arrglb = Split(glb, ",")
i1 = 0
i2 = 0
i3 = 0
i4 = 0
i5 = 0
i6 = 0
i7 = 0
i8 = 0
i9 = 0
i10 = 0
fcglb1 = ""
fcglb2 = ""
fcglb3 = ""
fcglb4 = ""
gcglb1 = ""
gcglb2 = ""
gcglb3 = ""
gcglb4 = ""
gcglb5 = ""
fdglb14 = Round(fdglb1, 4): fdglb15 = Round(fdglb1, 5): fdglb16 = Round(fdglb1, 6): fdglb17 = Round(fdglb1, 7)
fdglb24 = Round(fdglb2, 4): fdglb25 = Round(fdglb2, 5): fdglb26 = Round(fdglb2, 6): fdglb27 = Round(fdglb2, 7)
fdglb34 = Round(fdglb3, 4): fdglb35 = Round(fdglb3, 5): fdglb36 = Round(fdglb3, 6): fdglb37 = Round(fdglb3, 7)
fdglb44 = Round(fdglb4, 4): fdglb45 = Round(fdglb4, 5): fdglb46 = Round(fdglb4, 6): fdglb47 = Round(fdglb4, 7)
gqglb14 = Round(gqglb1, 4): gqglb15 = Round(gqglb1, 5): gqglb16 = Round(gqglb1, 6): gqglb17 = Round(gqglb1, 7)
gqglb24 = Round(gqglb2, 4): gqglb25 = Round(gqglb2, 5): gqglb26 = Round(gqglb2, 6): gqglb27 = Round(gqglb2, 7)
gqglb34 = Round(gqglb3, 4): gqglb35 = Round(gqglb3, 5): gqglb36 = Round(gqglb3, 6): gqglb37 = Round(gqglb3, 7)
gqglb44 = Round(gqglb4, 4): gqglb45 = Round(gqglb4, 5): gqglb46 = Round(gqglb4, 6): gqglb47 = Round(gqglb4, 7)
gqglb54 = Round(gqglb5, 4): gqglb55 = Round(gqglb5, 5): gqglb56 = Round(gqglb5, 6): gqglb57 = Round(gqglb5, 7)
i1 = UBound(Arrglb)
ReDim Arrglb1(i1) As Long
For Each zz1 In Arrglb
Arrglb1(i1) = zz1
i1 = i1 + 1
Next
i1 = 0
For Each zz1 In Arrglb1
For Each zz2 In Arrglb1
If zz1 = zz2 And InStr(cfgl, zz1) = 0 Then
Else
For Each zz3 In Arrglb1
If (zz1 = zz2 And zz1 = zz3) Or InStr(cfgl, zz3) = 0 And (zz1 = zz3 Or zz2 = zz3) Then
Else
If (CInt(zz1) + CInt(zz2) - CInt(zz3)) <= 20 Then Exit For
For Each zz4 In Arrglb1
If (zz1 = zz2 And zz1 = zz4) Or (zz2 = zz3 And zz2 = zz4) Or (zz1 = zz4 Or zz2 = zz4 Or zz3 = zz4) And InStr(cfgl, zz4) = 0 Then
Else
If ((CInt(zz3) + CInt(zz4)) > (CInt(zz2) + 20)) Then
jg1 = Round(zz1 / zz2 * zz3 / zz4, 8)
jg4 = Round(jg1, 4)
If (jg4 = fdglb14 And i1 < 100) Or (jg4 = fdglb24 And i2 < 100) Or (jg4 = fdglb34 And i3 < 100) Or (jg4 = fdglb44 And i4 < 100) Or (jg4 = gqglb14 And i5 < 100) Or (jg4 = gqglb24 And i6 < 100) Or (jg4 = gqglb34 And i7 < 100) Or (jg4 = gqglb44 And i8 < 100) Or (jg4 = gqglb54 And i9 < 100) Then
jg7 = Round(jg1, 7)
jg6 = Round(jg1, 6)
jg5 = Round(jg1, 5)
If jg1 < 1 Then
jg3 = "0" & jg1
Else
jg3 = jg1
End If
If InStr(jg1, ".") = 0 Then
jg3 = jg3 & String(8, "0")
Else
If Len(Split(jg1, ".")(1)) < 8 Then
jg3 = jg3 & String(8 - Len(Split(jg1, ".")(1)), "0")
End If
End If
If jg4 = fdglb14 And (i1 < 100) Then
If jg1 = fdglb1 Then
If fcglb1 = "" Then
fcglb1 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i1 = 1
Else
If InStr(fcglb1, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb1 = fcglb1 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i1 = i1 + 1
End If
End If
ElseIf i1 < 100 Then
If jg7 = fdglb17 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb17 = fcglb17 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb16 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb16 = fcglb16 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb15 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb15 = fcglb15 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = fdglb14 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb14 = fcglb14 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf fdglb2 <> fdglb1 And jg4 = fdglb24 And (i2 < 100) Then
If jg1 = fdglb2 Then
If fcglb2 = "" Then
fcglb2 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i2 = 1
Else
If InStr(fcglb2, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb2 = fcglb2 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i2 = i2 + 1
End If
End If
ElseIf i2 < 100 Then
If jg7 = fdglb27 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb27 = fcglb27 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb26 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb26 = fcglb26 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb25 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb25 = fcglb25 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = fdglb24 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb24 = fcglb24 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End IfElseIf jg4 = fdglb34 And (i3 < 100) Then
If jg1 = fdglb3 Then
If fcglb3 = "" Then
fcglb3 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i3 = 1
Else
If InStr(fcglb3, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb3 = fcglb3 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i3 = i3 + 1
End If
End If
ElseIf i3 < 100 Then
If jg7 = fdglb37 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb37 = fcglb37 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb36 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb36 = fcglb36 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb35 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb35 = fcglb35 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
性能优化VB
Dim gqglb1 As Double, gqglb2 As Double, gqglb3 As Double, gqglb4 As Double, gqglb5 As Double, fdglb1 As Double, fdglb2 As Double, fdglb3 As Double, fdglb4 As Double
Dim gcglb1 As String, gcglb2 As String, gcglb3 As String, gcglb4 As String, gcglb5 As String, fcglb1 As String, fcglb2 As String, fcglb3 As String, fcglb4 As String
Dim jg1 As Double, jg2 As Double, jg4 As Double, jg3 As String, jg7 As Double, jg6 As Double, jg5 As Double
Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i6 As Long, i7 As Long, i8 As Long, i9 As Long, i10 As Long
Dim fcglb1z As String, fcglb14 As String, fcglb15 As String, fcglb16 As String, fcglb17 As String
Dim fcglb2z As String, fcglb24 As String, fcglb25 As String, fcglb26 As String, fcglb27 As String
Dim fcglb3z As String, fcglb34 As String, fcglb35 As String, fcglb36 As String, fcglb37 As String
Dim fcglb4z As String, fcglb44 As String, fcglb45 As String, fcglb46 As String, fcglb47 As String
Dim gcglb1z As String, gcglb14 As String, gcglb15 As String, gcglb16 As String, gcglb17 As String
Dim gcglb2z As String, gcglb24 As String, gcglb25 As String, gcglb26 As String, gcglb27 As String
Dim gcglb3z As String, gcglb34 As String, gcglb35 As String, gcglb36 As String, gcglb37 As String
Dim gcglb4z As String, gcglb44 As String, gcglb45 As String, gcglb46 As String, gcglb47 As String
Dim gcglb5z As String, gcglb54 As String, gcglb55 As String, gcglb56 As String, gcglb57 As String
Dim fdglb14 As Double, fdglb15 As Double, fdglb16 As Double, fdglb17 As Double
Dim fdglb24 As Double, fdglb25 As Double, fdglb26 As Double, fdglb27 As Double
Dim fdglb34 As Double, fdglb35 As Double, fdglb36 As Double, fdglb37 As Double
Dim fdglb44 As Double, fdglb45 As Double, fdglb46 As Double, fdglb47 As Double
Dim gqglb14 As Double, gqglb15 As Double, gqglb16 As Double, gqglb17 As Double
Dim gqglb24 As Double, gqglb25 As Double, gqglb26 As Double, gqglb27 As Double
Dim gqglb34 As Double, gqglb35 As Double, gqglb36 As Double, gqglb37 As Double
Dim gqglb44 As Double, gqglb45 As Double, gqglb46 As Double, gqglb47 As Double
Dim gqglb54 As Double, gqglb55 As Double, gqglb56 As Double, gqglb57 As Double
gqglb1 = 1.32758621
gqglb2 = 0.96551724
gqglb3 = 1.42758621
gqglb4 = 0.86276135
gqglb5 = 0.8276242
fdglb1 = 0.31578947
fdglb2 = 1.31578947
fdglb3 = 0.2
fdglb4 = 1.2
StartTime = Timer
glb = "29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,86,87,88,89,90,91,93,94,97,98,99,100,116"
cfgl = "29,30,60,80,100,116" '允许重复字符串
Arrglb = Split(glb, ",")
i1 = 0
i2 = 0
i3 = 0
i4 = 0
i5 = 0
i6 = 0
i7 = 0
i8 = 0
i9 = 0
i10 = 0
fcglb1 = ""
fcglb2 = ""
fcglb3 = ""
fcglb4 = ""
gcglb1 = ""
gcglb2 = ""
gcglb3 = ""
gcglb4 = ""
gcglb5 = ""
fdglb14 = Round(fdglb1, 4): fdglb15 = Round(fdglb1, 5): fdglb16 = Round(fdglb1, 6): fdglb17 = Round(fdglb1, 7)
fdglb24 = Round(fdglb2, 4): fdglb25 = Round(fdglb2, 5): fdglb26 = Round(fdglb2, 6): fdglb27 = Round(fdglb2, 7)
fdglb34 = Round(fdglb3, 4): fdglb35 = Round(fdglb3, 5): fdglb36 = Round(fdglb3, 6): fdglb37 = Round(fdglb3, 7)
fdglb44 = Round(fdglb4, 4): fdglb45 = Round(fdglb4, 5): fdglb46 = Round(fdglb4, 6): fdglb47 = Round(fdglb4, 7)
gqglb14 = Round(gqglb1, 4): gqglb15 = Round(gqglb1, 5): gqglb16 = Round(gqglb1, 6): gqglb17 = Round(gqglb1, 7)
gqglb24 = Round(gqglb2, 4): gqglb25 = Round(gqglb2, 5): gqglb26 = Round(gqglb2, 6): gqglb27 = Round(gqglb2, 7)
gqglb34 = Round(gqglb3, 4): gqglb35 = Round(gqglb3, 5): gqglb36 = Round(gqglb3, 6): gqglb37 = Round(gqglb3, 7)
gqglb44 = Round(gqglb4, 4): gqglb45 = Round(gqglb4, 5): gqglb46 = Round(gqglb4, 6): gqglb47 = Round(gqglb4, 7)
gqglb54 = Round(gqglb5, 4): gqglb55 = Round(gqglb5, 5): gqglb56 = Round(gqglb5, 6): gqglb57 = Round(gqglb5, 7)
i1 = UBound(Arrglb)
ReDim Arrglb1(i1) As Long
For Each zz1 In Arrglb
Arrglb1(i1) = zz1
i1 = i1 + 1
Next
i1 = 0
For Each zz1 In Arrglb1
For Each zz2 In Arrglb1
If zz1 = zz2 And InStr(cfgl, zz1) = 0 Then
Else
For Each zz3 In Arrglb1
If (zz1 = zz2 And zz1 = zz3) Or InStr(cfgl, zz3) = 0 And (zz1 = zz3 Or zz2 = zz3) Then
Else
If (CInt(zz1) + CInt(zz2) - CInt(zz3)) <= 20 Then Exit For
For Each zz4 In Arrglb1
If (zz1 = zz2 And zz1 = zz4) Or (zz2 = zz3 And zz2 = zz4) Or (zz1 = zz4 Or zz2 = zz4 Or zz3 = zz4) And InStr(cfgl, zz4) = 0 Then
Else
If ((CInt(zz3) + CInt(zz4)) > (CInt(zz2) + 20)) Then
jg1 = Round(zz1 / zz2 * zz3 / zz4, 8)
jg4 = Round(jg1, 4)
If (jg4 = fdglb14 And i1 < 100) Or (jg4 = fdglb24 And i2 < 100) Or (jg4 = fdglb34 And i3 < 100) Or (jg4 = fdglb44 And i4 < 100) Or (jg4 = gqglb14 And i5 < 100) Or (jg4 = gqglb24 And i6 < 100) Or (jg4 = gqglb34 And i7 < 100) Or (jg4 = gqglb44 And i8 < 100) Or (jg4 = gqglb54 And i9 < 100) Then
jg7 = Round(jg1, 7)
jg6 = Round(jg1, 6)
jg5 = Round(jg1, 5)
If jg1 < 1 Then
jg3 = "0" & jg1
Else
jg3 = jg1
End If
If InStr(jg1, ".") = 0 Then
jg3 = jg3 & String(8, "0")
Else
If Len(Split(jg1, ".")(1)) < 8 Then
jg3 = jg3 & String(8 - Len(Split(jg1, ".")(1)), "0")
End If
End If
If jg4 = fdglb14 And (i1 < 100) Then
If jg1 = fdglb1 Then
If fcglb1 = "" Then
fcglb1 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i1 = 1
Else
If InStr(fcglb1, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb1 = fcglb1 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i1 = i1 + 1
End If
End If
ElseIf i1 < 100 Then
If jg7 = fdglb17 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb17 = fcglb17 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb16 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb16 = fcglb16 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb15 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb15 = fcglb15 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = fdglb14 Then
If InStr(fcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb14 = fcglb14 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb1z = fcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf fdglb2 <> fdglb1 And jg4 = fdglb24 And (i2 < 100) Then
If jg1 = fdglb2 Then
If fcglb2 = "" Then
fcglb2 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i2 = 1
Else
If InStr(fcglb2, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb2 = fcglb2 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i2 = i2 + 1
End If
End If
ElseIf i2 < 100 Then
If jg7 = fdglb27 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb27 = fcglb27 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb26 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb26 = fcglb26 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb25 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb25 = fcglb25 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = fdglb24 Then
If InStr(fcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb24 = fcglb24 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb2z = fcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End IfElseIf jg4 = fdglb34 And (i3 < 100) Then
If jg1 = fdglb3 Then
If fcglb3 = "" Then
fcglb3 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i3 = 1
Else
If InStr(fcglb3, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb3 = fcglb3 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i3 = i3 + 1
End If
End If
ElseIf i3 < 100 Then
If jg7 = fdglb37 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb37 = fcglb37 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb36 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb36 = fcglb36 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb35 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb35 = fcglb35 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
性能优化VB
ElseIf jg4 = fdglb34 Then
If InStr(fcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb34 = fcglb34 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb3z = fcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf fdglb4 <> fdglb3 And jg4 = fdglb44 And (i4 < 100) Then
If jg1 = fdglb4 Then
If fcglb4 = "" Then
fcglb4 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i4 = 1
Else
If InStr(fcglb4, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb4 = fcglb4 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = fcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i4 = i4 + 1
End If
End If
ElseIf i4 < 100 Then
If jg7 = fdglb47 Then
If InStr(fcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb47 = fcglb47 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = fcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = fdglb46 Then
If InStr(fcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb46 = fcglb46 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = fcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = fdglb45 Then
If InStr(fcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb45 = fcglb45 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = fcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = fdglb44 Then
If InStr(fcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
fcglb44 = fcglb44 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
fcglb4z = fcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf jg4 = gqglb14 And (i5 < 100) Then
If jg1 = gqglb1 Then
If gcglb1 = "" Then
gcglb1 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i5 = 1
Else
If InStr(gcglb1, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb1 = gcglb1 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = gcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i5 = i5 + 1
End If
End If
ElseIf i5 < 100 Then
If jg7 = gqglb17 Then
If InStr(gcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb17 = gcglb17 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = gcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = gqglb16 Then
If InStr(gcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb16 = gcglb16 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = gcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = gqglb15 Then
If InStr(gcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb15 = gcglb15 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = gcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = gqglb14 Then
If InStr(gcglb1z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb14 = gcglb14 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb1z = gcglb1z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf gqglb1 <> gqglb2 And jg4 = gqglb24 And (i6 < 100) ThenIf jg1 = gqglb2 ThenIf gcglb2 = "" Then
gcglb2 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i6 = 1
Else
If InStr(gcglb2, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb2 = gcglb2 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = gcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i6 = i6 + 1
End If
End If
ElseIf i6 < 100 Then
If jg7 = gqglb27 Then
If InStr(gcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb27 = gcglb27 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = gcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = gqglb26 Then
If InStr(gcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb26 = gcglb26 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = gcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = gqglb25 Then
If InStr(gcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb25 = gcglb25 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = gcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = gqglb24 Then
If InStr(gcglb2z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb24 = gcglb24 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb2z = gcglb2z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End IfElseIf gqglb3 <> gqglb1 And jg4 = gqglb34 And (i7 < 100) Then
If jg1 = gqglb3 Then
If gcglb3 = "" Then
gcglb3 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i7 = 1
Else
If InStr(gcglb3, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb3 = gcglb3 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = gcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i7 = i7 + 1
End If
End If
ElseIf i7 < 100 Then
If jg7 = gqglb37 Then
If InStr(gcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb37 = gcglb37 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = gcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = gqglb36 Then
If InStr(gcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb36 = gcglb36 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = gcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = gqglb35 Then
If InStr(gcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb35 = gcglb35 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = gcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = gqglb34 Then
If InStr(gcglb3z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb34 = gcglb34 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb3z = gcglb3z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf jg4 = gqglb44 And (i8 < 100) Then
If jg1 = gqglb4 Then
If gcglb4 = "" Then
gcglb4 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i8 = 1
Else
If InStr(gcglb4, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb4 = gcglb4 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = gcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i8 = i8 + 1
End If
End If
ElseIf i8 < 100 Then
If jg7 = gqglb47 Then
If InStr(gcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb47 = gcglb47 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = gcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg6 = gqglb46 Then
If InStr(gcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb46 = gcglb46 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = gcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = gqglb45 Then
If InStr(gcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb45 = gcglb45 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = gcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = gqglb44 Then
If InStr(gcglb4z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb44 = gcglb44 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb4z = gcglb4z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
ElseIf jg4 = gqglb54 And (i9 < 100) Then
If jg1 = gqglb5 Then
If gcglb5 = "" Then
gcglb5 = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i9 = 1
Else
If InStr(gcglb5, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb5 = gcglb5 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = gcglb5z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
i9 = i9 + 1
End If
End If
ElseIf i9 < 100 Then
If jg7 = gqglb57 Then
If InStr(gcglb5z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb57 = gcglb57 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = gcglb5z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
If InStr(gcglb5z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb56 = gcglb56 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = gcglb5z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg5 = gqglb55 Then
If InStr(gcglb5z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb55 = gcglb55 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = gcglb5z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
ElseIf jg4 = gqglb54 Then
If InStr(gcglb5z, zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";") = 0 Then
gcglb54 = gcglb54 & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
gcglb5z = gcglb5z & zz1 & "," & zz2 & "," & zz3 & "," & zz4 & "," & jg3 & ";"
End If
End If
End If
End If
End If
End If
End If
Next
End If
Next
End If
Next
Next
If UBound(Split(fcglb1, ";")) < 100 And fcglb17 <> "" Then fcglb1 = fcglb1 & fcglb17
If UBound(Split(fcglb1, ";")) < 100 And fcglb16 <> "" Then fcglb1 = fcglb1 & fcglb16
If UBound(Split(fcglb1, ";")) < 100 And fcglb15 <> "" Then fcglb1 = fcglb1 & fcglb15
If UBound(Split(fcglb1, ";")) < 100 And fcglb14 <> "" Then fcglb1 = fcglb1 & fcglb14
If fdglb2 <> fdglb1 Then
If UBound(Split(fcglb2, ";")) < 100 And fcglb27 <> "" Then fcglb2 = fcglb2 & fcglb27
If UBound(Split(fcglb2, ";")) < 100 And fcglb26 <> "" Then fcglb2 = fcglb2 & fcglb26
If UBound(Split(fcglb2, ";")) < 100 And fcglb25 <> "" Then fcglb2 = fcglb2 & fcglb25
If UBound(Split(fcglb2, ";")) < 100 And fcglb24 <> "" Then fcglb2 = fcglb2 & fcglb24
Else
fcglb2 = fcglb1
End If
If UBound(Split(fcglb3, ";")) < 100 And fcglb37 <> "" Then fcglb3 = fcglb3 & fcglb37
If UBound(Split(fcglb3, ";")) < 100 And fcglb36 <> "" Then fcglb3 = fcglb3 & fcglb36
If UBound(Split(fcglb3, ";")) < 100 And fcglb35 <> "" Then fcglb3 = fcglb3 & fcglb35
If UBound(Split(fcglb3, ";")) < 100 And fcglb34 <> "" Then fcglb3 = fcglb3 & fcglb34
If fdglb4 <> fdglb3 Then
If UBound(Split(fcglb4, ";")) < 100 And fcglb47 <> "" Then fcglb4 = fcglb4 & fcglb47
If UBound(Split(fcglb4, ";")) < 100 And fcglb46 <> "" Then fcglb4 = fcglb4 & fcglb46
If UBound(Split(fcglb4, ";")) < 100 And fcglb45 <> "" Then fcglb4 = fcglb4 & fcglb45
If UBound(Split(fcglb4, ";")) < 100 And fcglb44 <> "" Then fcglb4 = fcglb4 & fcglb44
Else
fcglb4 = fcglb3
End If
If UBound(Split(gcglb1, ";")) < 100 And gcglb17 <> "" Then gcglb1 = gcglb1 & gcglb17
If UBound(Split(gcglb1, ";")) < 100 And gcglb16 <> "" Then gcglb1 = gcglb1 & gcglb16
If UBound(Split(gcglb1, ";")) < 100 And gcglb15 <> "" Then gcglb1 = gcglb1 & gcglb15
If UBound(Split(gcglb1, ";")) < 100 And gcglb14 <> "" Then gcglb1 = gcglb1 & gcglb14
If gqglb1 <> gqglb2 Then
If UBound(Split(gcglb2, ";")) < 100 And gcglb27 <> "" Then gcglb2 = gcglb2 & gcglb27
If UBound(Split(gcglb2, ";")) < 100 And gcglb26 <> "" Then gcglb2 = gcglb2 & gcglb26
If UBound(Split(gcglb2, ";")) < 100 And gcglb25 <> "" Then gcglb2 = gcglb2 & gcglb25
If UBound(Split(gcglb2, ";")) < 100 And gcglb24 <> "" Then gcglb2 = gcglb2 & gcglb24
Else
gcglb2 = gcglb1
End If
If gqglb1 <> gqglb3 Then
If UBound(Split(gcglb3, ";")) < 100 And gcglb37 <> "" Then gcglb3 = gcglb3 & gcglb37
If UBound(Split(gcglb3, ";")) < 100 And gcglb36 <> "" Then gcglb3 = gcglb3 & gcglb36
If UBound(Split(gcglb3, ";")) < 100 And gcglb35 <> "" Then gcglb3 = gcglb3 & gcglb35
If UBound(Split(gcglb3, ";")) < 100 And gcglb34 <> "" Then gcglb3 = gcglb3 & gcglb34
Else
gcglb3 = gcglb1
End If
If UBound(Split(gcglb4, ";")) < 100 And gcglb47 <> "" Then gcglb4 = gcglb4 & gcglb47
If UBound(Split(gcglb4, ";")) < 100 And gcglb46 <> "" Then gcglb4 = gcglb4 & gcglb46
If UBound(Split(gcglb4, ";")) < 100 And gcglb45 <> "" Then gcglb4 = gcglb4 & gcglb45
If UBound(Split(gcglb4, ";")) < 100 And gcglb44 <> "" Then gcglb4 = gcglb4 & gcglb44
If UBound(Split(gcglb5, ";")) < 100 And gcglb57 <> "" Then gcglb5 = gcglb5 & gcglb57
If UBound(Split(gcglb5, ";")) < 100 And gcglb56 <> "" Then gcglb5 = gcglb5 & gcglb56
If UBound(Split(gcglb5, ";")) < 100 And gcglb55 <> "" Then gcglb5 = gcglb5 & gcglb55
If UBound(Split(gcglb5, ";")) < 100 And gcglb54 <> "" Then gcglb5 = gcglb5 & gcglb54
EndTime = Timer
TimeIt = EndTime - StartTime
MsgBox TimeIt
End Sub