Доброго времени суток, нужен макрос который будет из файла примера из столбца исходные данные декодировать их к виду в столбце после декодирования. Далее должен удаляться хвост, который может начинаться с трех параметров &_openstat, &yclid, &gclid. В итоге будет строка вида
Код
=|gc:1047889346|gb:282564164635|gad:51826865259|gk:kwd-422283136922|gst:g|gf:|gs:|gp:1t1
или
|c:34158797|g:3275183547|b:5601331100|k:13043360311|st:search|a:no|s:none|t:premium|p:1|r:
Которую надо разбить по прямым слешам в отельные столбцы которые будут называться соответственно параметрам перед двоеточием, то есть собственно нужны значения после двоеточия.
Есть макрос(ниже), ошибка возникает в строке то ли следующей после строки с Do, то ли через одну от нее. Код ошибки: run-time error 1004. Смысл в том чтоб пробегать столбец С, и проверять столбец А, на соответствие значению в столбце С, если есть совпадения красим, если нет бежим дальше. Имя специально не менял ибо название в дальнейшем будет "Страшное".
Код
Sub Макрос6()
'
' Макрос6 Макрос
' stop
'
' Сочетание клавиш: Ctrl+t
'
i = 1
Range(Selection, Selection.End(xlDown)).Select
Do While i <= 100
Selection.FormatConditions.Add Type:=xlTextString, String:="=$C$i", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Loop
End Sub