Excel, если ячейка содержит «-» рядом с номером, затем переместите

Question

Что мне нужно сделать, это в основном написать номер урока. Есть 3 колома.

Вторая колонка работает, с помощью настраиваемой формулы под названием LessonsLeft сделано кем-то из моего второго потока на StackOverflow и это

Function LessonsLeft(rng As Range) As String 
If rng.Count > 1 Then Exit Function 
Dim spltStr() As String 
Dim i As Long 
spltStr = Split(rng.Value, ",") 
LessonsLeft = ",1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50," 
For i = LBound(spltStr) To UBound(spltStr) 
    LessonsLeft = Replace(LessonsLeft, "," & spltStr(i) & ",", ",") 
Next i 
LessonsLeft = Mid(LessonsLeft, 2, Len(LessonsLeft) - 2) 
End Function 

Что мне нужно сделать, это добавить еще один, третий колонные, который для уроков, которые мои ученики сделали с первой попытки, но они не смогли пройти экзамен.

Как я хочу, чтобы данные были там, это написать для примера «-» или «+» рядом с числом в первом столбце, чтобы число переместилось в третий столбец.

Как это сделать?

Answer 1

использовать эту функцию

Function LessonsAttemptedButNotDone(rng As Range) As String 
    If rng.Count > 1 Then Exit Function 
    Dim spltStr() As String, lessonDone As String 
    Dim i As Long 

    spltStr = Split(rng.Value, ",") 
    For i = LBound(spltStr) To UBound(spltStr) 
     lessonDone = spltStr(i) 
     If Right(lessonDone, 1) = "-" Then 
      lessonDone = Left(lessonDone, Len(lessonDone) - 1) 
      LessonsAttemptedButNotDone = LessonsAttemptedButNotDone & lessonDone & "," 
     End If 
    Next 
    If LessonsAttemptedButNotDone <> "" Then LessonsAttemptedButNotDone = Left(LessonsAttemptedButNotDone, Len(LessonsAttemptedButNotDone) - 1) 
End Function