- #1

- 2

- 0

Here's the program I'm using - could anyone convert this to Fortran and could this in, in practice, run on Fujitsu's K (10 teraflops) computer. If so, how long would it take the K to perform this task - I've calculated 12.93 hrs from tests on a typical office PC? With thanks.

Sub AddCodes()

Dim x As Long, LastRow As Long, UB As Long, BList As Variant

Const StartRow As Long = 1

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

BList = Join(WorksheetFunction.Transpose(Cells(StartRow, "B").Resize(LastRow - StartRow + 1)), "/")

' Application.ScreenUpdating = False

For x = StartRow To LastRow

UB = UBound(Split(Split(BList, Cells(x, "C").Value)(0), "/"))

If UB >= 0 Then

With Cells(x, "D")

.Value = .Value & "," & Range("A1").Offset(UB).Value

If Left(.Value, 1) = "," Then .Value = Mid(.Value, 2)

.Interior.ColorIndex = 6

.Font.Bold = True

End With

End If

Next

Application.ScreenUpdating = True

End With

End Sub