Создание кнопки, которая удаляет определенные ячейки и сдвигает строку вверх, если значение ячейки пусто или равно нулю в MS Excel - PullRequest
Новая
       15

Создание кнопки, которая удаляет определенные ячейки и сдвигает строку вверх, если значение ячейки пусто или равно нулю в MS Excel

1 голос
/ 09 марта 2019

Я пытаюсь создать в электронной таблице Excel кнопку, которая может удалить 4 ячейки подряд и сдвинуть нижние 4 ячейки вверх, если значение в конкретной ячейке равно нулю или пусто. Я работал на других языках и знаю основы Excelформулы, но я не знаю много о VBA.и я не уверен, что переполнение стека, если правильное место для обсуждения в офисе.

1 Ответ

2 голосов
/ 09 марта 2019

Вот хорошая статья: https://analysistabs.com/vba-code/range/m/delete/

Не могли бы вы предоставить более подробную информацию? Например, если A1 = 0, то удалить A2: A4 и сдвинуть вверх? 

If A1 = 0 Then 
  Range("A2:A4").Delete Shift:=xlToUp

Если вы ищете кнопку, работающую только с выбранной ячейкой, вы можете попробовать: 

If ActiveCell = 0 Then
  Range(ActiveCell.Offset(0,1), ActiveCell.Offset(0,4)).Delete Shift:=xlToUp
...