Toster234

то есть получить значение яваскриптом?

document.querySelector('select[name=cat]').querySelector('[value="4"]')

или поставить выбранный по умолчанию пункт?
<option value="4" selected>Прочее</option>

или так

document.querySelector('select[name=cat]').querySelector('[value="4"]').selected = true

Sub QQQ()
For I = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
With Cells(1, I)
If .Value <> "" And Left(.Value, 1) <> """" And Right(.Value, 1) <> """" Then .Value = """" & .Value & """"
End With
Next I

For I = 1 To Cells(3, Columns.Count).End(xlToLeft).Column
With Cells(3, I)
If .Value <> "" And Left(.Value, 1) <> """" And Right(.Value, 1) <> """" Then .Value = """" & .Value & """"
End With
Next I

End Sub

Effector Saver - бесплатный и хороший планировщик