@Toster234

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

Есть макрос, выделяющий 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

Необходимо сделать то же самое, только для строк, а не для столбцов.
  • Вопрос задан
  • 78 просмотров
Решения вопроса 1
Volounteer
@Volounteer
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
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы