Сайтоассорти Кравченко СВ

следующий макрос просто меня осчастливил

он меняет парные кавычки "" на галочки <<>>

Sub Karssen()
Dim c As Range, i As Long, s As String, rl As Boolean
  Set c = Cells.Find("""", , xlValues, xlPart)
  Do While Not c Is Nothing
    s = c
    i = 0
    rl = False
    Do
      i = InStr(i + 1, s, """")
&n
		
		... 
		
			Читать дальше »