Sub test()
  Dim i As Long
  For i = 1 To Len(ActiveCell) - 1
    With ActiveCell.Characters(Start:=i, Length:=1).Font
      If .Color = vbRed Then
        .Italic = True
      End If
    End With
  Next i
End Sub

Sub ShowSymbols()
  Dim i As Long, s As String
  For i = 1 To Len(ActiveCell)
    s = Mid(ActiveCell, i, 1)
    Debug.Print i, s, Asc(s), AscW(s)
  Next i
End Sub

Sub test()
  'Selection.Replace "/", "/" не работает
  Selection.Value = Selection.Value
End Sub

Sub test()
  Debug.Print DateAdd("m", 1, DateSerial(2019, 1, 28))   ' возвращает 28.02.2019
  Debug.Print DateAdd("m", 1, DateSerial(2019, 1, 31))   ' также возвращает 28.02.2018
    
  Debug.Print DateAdd("m", 1, DateSerial(2019, 2, 28))   ' возвращает 28.03.2019
  Debug.Print DateAdd("m", 2, DateSerial(2019, 1, 31))   ' возвращает 31.03.2019
End Sub

Sub test()
  Dim v
  v = CallByName(Application.WorksheetFunction, "Trim", VbGet, Array("1  2", "3   4  "))
  Debug.Print v(1), Len(v(1)), v(2), Len(v(2))
End Sub

    Dim pDoc As Object, pItems As Object, pItem As Object
    Set pDoc = CreateObject("Msxml2.DOMDocument.6.0")

   ActiveSheet.Range("$A$1:$A$33").AutoFilter Field:=1, Criteria1:= _
        ">=" & CDbl(DateSerial(2019, 1, 1)), Operator:=xlAnd, Criteria2:="<=" & CDbl(DateSerial(2019, 12, 31))