Макрос сравнения двух столбцов с условиями - VBA
Формулировка задачи:
есть 5 столбцов в виде
надо сравнить третий с четвертым(могут быть любые два последовательных столбца) с условиями:
1- если оба равный переходим к следующей строке
2- если в третьем есть а в четвертом нет то в четвертый и все последующие столбцы вставляем пустые ячейки со смещением вниз
3- если в четвертом есть а в третьем нет то ко всем ячейкам до третей включительно вставляем пустые ячейки со смещением вниз
4- если оба пустые переходим к следующей строке при двукратном повторении останавливаем макрос
результат выполнения макроса
| 1 | 300.00 | 900 | 900 | 180.00 |
| 3 | 800.00 | 902 | 901 | 0.00 |
| 4 | 402.00 | 903 | 902 | 268.00 |
| 5 | 231.00 | 905 | 903 | 0.00 |
| 6 | 350.00 | 906 | 906 | 309.00 |
| 7 | 261.00 | 907 | 907 | 0.00 |
| 1 | 300.00 | 900 | 900 | 180.00 |
| 901 | 0.00 | |||
| 3 | 800.00 | 902 | 902 | 268.00 |
| 4 | 402.00 | 903 | 903 | 0.00 |
| 5 | 231.00 | 905 | ||
| 6 | 350.00 | 906 | 906 | 309.00 |
| 7 | 261.00 | 907 | ||
| 908 | 0.00 |
Решение задачи: «Макрос сравнения двух столбцов с условиями»
textual
Листинг программы
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д