Цитата subuday77:
|
Я ещё и <шопотом, оглядываясь> goto в батниках использую. »
|
Ну, тут, как бы, никуда не деться.
Цитата subuday77:
|
И всё таки, можно как-то скомбинировать буквы и переменные? »
|
Комбинировать можно, только не буквы, а диапазоны (например, по объединять по Union() (
Application.Union Method (Excel) | Microsoft Docs) или брать пересечение по .Intersect() (
Application.Intersect Method (Excel) | Microsoft Docs)). Но мы можеи просто взять диапазон зараз:
Код:
With ActiveSheet
.Range(.Cells.Cells(2, 1), .Cells.Cells(2200, 2)).Unmerge
End With
указывая в методе .Range() левую верхнюю ячейку и правую нижнюю ячейку диапазона. Причём, поскольку в методе .Range() требуется указание объектов типа Range, мы можем вместо метода .Cells() и цифр строки и столбца использовать буквенно-цифоровую адресацию, например:
Код:
With ActiveSheet
.Range(.Range("A2"), .Range("B2200")).Unmerge
End With
Конечно. Я потому и пишу, что обычно требуется сделать:
Скрытый текст
Цитата Iska:
Вы делаете «не так» следующее:- не даёте описание задачи;
- не даёте описание того, что делает (или что должен был бы делать) код;
- не упаковываете в архив образец Рабочей книги, для которой предназначен выложенный код, и не прикладываете его к сообщению.
»
|
потому как
задача может быть решена совсем другим способом, может не нуждаться в выбранном решении и т.п.
Цитата subuday77:
|
А он не угробит содержимое всех ячеек, кроме верхней? »
|
А как? Это при объединении теряются значения всех объединённых ячеек, кроме самой верхней левой, но мы же тут разъединяем их, а не объединяем.
Цитата subuday77:
Расскажу.
Некое существо, ещё более криворукое, чем я, собрало кучу эксель листов копипастом с сайта.
Всё ничего, но данные выглядят так:
http://forum.oszone.net/attachment.p...1&d=1535471448
Их очень много.
И чтобы привести всё это в божеский вид, пришлось срочно осваивать VBS.
Часа за два сваял что-то, что разцепляет ячейки, не удаляя при этом содержимое, а потом сносит пустые строки.
Как-то так. »
|
subuday77, спасибо, ясно. Ну, тогда, значится, для однократного применения и Ваш код более чем гож, даже с прямым указанием адресации (разве что отрабатывать будет достаточно долго).
