Создать два столбца с ценами, перенести ячейку, заменить значения - VBA

Формулировка задачи:

Добрый день! Имеется excel файл напечатанного ниже формата:

Строка "1"

- Наименования столбцов;

Столбец "A"

- артикул;

Столбец "B"

- стоимость;

Столбец "C"

- наличие. Ниже напечатан пример структуры

"исходника"

excel файла: [A1] Артикул [B1] Стоимость базовая [C1] Наличие на складе [A2] 5215 [B2] 211,667 [C2] 3 [A3] 5216 [B3] 732,647 [C3] 1 [A4] 54660 [B4] 666,46 [C4] 1 [A5] 57471 [B5] 748,86 [C5] нет [A6] 54659 [B6] 417,08 [C6] нет [A7] 5221 [B7] 145,864 [C7] 3 (1) Напишите пожалуйста макрос который

создаст два столбца со сдвигом вправо

, после

столбца "B"

; (2) Ячейки созданных

столбцов "C" и "D" должны быть вычислены по формуле [C2]=B2*99%, [D2]=B2*99%, [C3]=B3*99%, [D3]=B3*99% и т. д.

(3)

В столбце "C", после запятой должна быть одна цифра

, а

в столбце "D" должны отсутствовать цифры после запятой

(значение с округлением в большую сторону); (4) После выполнения выше перечисленных вычислений Значение ячейки [B1], должно перенестись в ячейку [D1]; (5) Последним шагом значение

строки "1"

должны измениться на ниже напечатанные: 1. с "Артикул" на

"article"

2. с "Стоимость базовая" на

"cost : basis"

3. с "Наличие на складе" на

"stock : availability"

Пример структуры excel файла с

"необходимым результатом"

: [A1] article [D1] cost : basis [E1] stock : availability [A2] 5215 [B2] 211,667 [C2] 209,6 [D2] 210 [E2] 3 [A3] 5216 [B3] 732,647 [C3] 725,3 [D3] 725 [E3] 1 [A4] 54660 [B4] 666,46 [C4] 659,8 [D4] 660 [E4] 1 [A5] 57471 [B5] 748,86 [C5] 741,4 [D5] 741 [E5] нет [A6] 54659 [B6] 417,08 [C6] 412,9 [D6] 413 [E6] нет [A7] 5221 [B7] 145,864 [C7] 144,4 [D7] 144 [E7] 3 В файле во вложении привожу пример страниц

"Исходник"

"Необходимый результат"

Решение задачи: «Создать два столбца с ценами, перенести ячейку, заменить значения»

textual
                            Листинг программы 
                        

                            Sub qweqwe()
    Columns("C:D").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C2").FormulaR1C1 = "=RC[-1]*99%"
    Range("D2").FormulaR1C1 = "=RC[-2]*99%"
    Range("C2:D2").AutoFill Destination:=Range("C2:D7"), Type:=xlFillDefault
    Columns("C:C").NumberFormat = "0.0"
    Columns("D:D").NumberFormat = "0"
    Range("B1").ClearContents
    Range("D1").FormulaR1C1 = "Стоимость"
    Range("A1").FormulaR1C1 = "article"
    Range("D1").FormulaR1C1 = "cost : basis"
    Range("E1").FormulaR1C1 = "stock : availability"
End Sub
                        