Как изменить макрос Excel с «вертикального» на «горизонтальный»?

Question

[Toster234]

Есть макрос, выделяющий 1 и 3 столбцы, подставляющий в начало и конец выделенных ячеек кавычки.

Sub QQ()
For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row
With Cells(I, 1)
If .Value <> "" And Left(.Value, 1) <> """" And Right(.Value, 1) <> """" Then .Value = """" & .Value & """"
End With
Next I

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

End Sub

Необходимо сделать то же самое, только для строк, а не для столбцов.

Answer 1

[Bcoon]

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