Я делаю презентацию с Excel два раза в неделю, и мне нужно знать, как я могу изменить размер всех моих строк, не превышая 60,00(80 пикселей)? Некоторые строки содержат больше информации, чем другие, поэтому мне нужно прокрутить 1500 строк и найти те, которые необходимо изменить. Я не могу заблокировать ячейки, потому что информация постоянно перемещается каждый раз, когда я обновляю свой рабочий лист.
2 ответа
1
В этом ответе предполагается, что вы знаете, как добавить код в ThisWorkbook в проводнике VBA (Alt+F11) и как запускать макросы.
Не уверен, какую версию вы используете, но этот код был протестирован в 2010 году. Этот VBA создаст макрос, который вы можете запустить для форматирования строк в перенос слов, а затем проверьте высоту строк. Если это не по крайней мере 60, он установит его на 60.
Sub SetRowHeight()
For Each c In Range("A1:D1500") 'set this range to match your sheet
c.EntireRow.WrapText = True
If c.RowHeight < 60 Then c.RowHeight = 60
Next c
End Sub
Примечание. Это не меняет ширину столбца.
1
Вы можете нажать в верхней левой ячейке, чтобы выбрать все строки и столбцы в книге
В разделе Cells ленты выберите раскрывающийся список Format :
Вы можете либо автоматически подогнать все строки, либо использовать диалоговое окно « Row Height », чтобы установить явную высоту.