Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как с помощью макроса можно сместить ячейки и выстроить зеркальную структуру.
 
#1
03.08.2020 17:30:29
Привет всем!
Подскажите структура 1С вытягивается в неправильном виде. Столбцы с иерархией смещаются направо. Подскажите как можно подвинуть все ячейки на левую сторону и выстроить правильную структуру. Желательно с помощью макроса.
 
 
 
#2
03.08.2020 17:36:40
Добрый день

Код
Sub Макрос1()
    Range("A1:H8").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
 
 
 
#3
03.08.2020 17:40:17
Цитата
Андрей Лящук написал:
Range("A1:H8")
Подскажите как сделать чтобы диапазон не фиксировался, а передвигал по всем столбцам.
 
 
 
#4
03.08.2020 17:50:37
DemonAMT, попробуйте так (https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=31811)
Код
Sub ff23()
Dim rng As Range
     Set rng = UsedRange.Cells(1).CurrentRegion
    rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
Изменено: Mershik - 03.08.2020 17:50:59
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
03.08.2020 18:07:22
Извините за вопрос) , но как этот макрос работает?  
 
 
 
#6
03.08.2020 18:09:53
DemonAMT, https://it.wikireading.ru/26440
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
06.08.2020 09:27:18
Цитата
Андрей Лящук написал:
Range("A1:H8")
Добрый день!
Подскажите как в макросе:
Код
Sub Макрос1()    
Range("A:H").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

прописать диапазон столбцов (Range("A:H")), так чтобы макрос срабатывал не по фиксированному диапазону A:H , а по диапазону который выделен.
 
 
 
#8
06.08.2020 09:38:53
вместо Range("A:H"), укажите Selection
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#9
06.08.2020 10:12:25
Заменил,
Код
Sub Макрос1()  
   Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Макрос стягивает все значения с правой части до пробела. Если не стоит пробел то стягивает все что справа, а как сделать, чтоб он стягивал только в пределах выделенных столбцов.
 
 
 
Страницы: 1
Наверх