Вырезать указанный цвет шрифта в ячейке и вставить в следующую ячейку / столбец

Question

У меня есть файл Excel с несколькими цветными шрифтами текста в одной ячейке.например, одна ячейка имеет данные о цвете черного и синего шрифта.Мне нужно вырезать данные о цвете синего шрифта и вставить в следующую ячейку / столбец.

У меня есть один макрос, который удаляет только указанные данные о цвете шрифта.

Sub deletecolor_v2()
  Dim rng As Range, c As Range
  Dim s As String, sTemp As String
  Dim aCol
  Dim p As Long, i As Long, k As Long, L As Long

  Set rng = Range("A1:A10")
  For Each c In rng
    s = c.Value
    L = Len(s)
    If L > 0 Then
      k = 0
      sTemp = vbNullString
      ReDim aCol(1 To L, 1 To 2)
      For p = 1 To L
        If c.Characters(p, 1).Font.Color <> vbRed Then
          k = k + 1
          aCol(k, 1) = c.Characters(p, 1).Font.Color
          aCol(k, 2) = c.Characters(p, 1).Font.Underline
          sTemp = sTemp & Mid(s, p, 1)
        End If
      Next p
      c.Value = sTemp
      For p = 1 To k
        c.Characters(p, 1).Font.Color = aCol(p, 1)
        c.Characters(p, 1).Font.Underline = aCol(p, 2)
      Next p
    End If
  Next c
End Sub