Смещение и вырезание значений одного столбца в другой столбец

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

Columns("F:F").Select Selection.Insert Shift:=xlToRight Range("E13").Select Selection.Cut Range("F12").Select ActiveSheet.Paste Range("E15").Select Selection.Cut Range("F14").Select ActiveSheet.Paste 

Я просто пытаюсь запустить это до любой пустой строки

Я нашел этот код, но не в состоянии настроить, любезно помогите мне

 Sub project() Dim lastrow As Long Dim i As Long Dim j As Long lastrow = Sheets("Progress").Cells(Rows.Count, 26).End(xlUp).Row For j = 1 To 26 If Cells(6, j) = "Earned Cumulative Hours" Then For i = 8 To lastrow Cells(i, j).Copy Cells(i, j).Offset(0, -2).Select Selection.PasteSpeical Paste:=xlPasteValues Next i End If Next j End Sub 

Снимок экрана для справки:

введите описание изображения здесь

Interesting Posts

Использование Sumif и vlookup частичной строки

Как создать выпадающий список в Excel из списка, разделенного запятыми

Создать рабочий лист Excel, отфильтровав другой рабочий лист

Excel для удаления дубликатов по одному столбцу за несколько столбцов

Создайте диаграмму с одной осью x и двумя y-осями

Ошибка 1004 Метод удаления класса Range не выполнен

Ошибка кода Excel VBA

MS Excel Сравнение и сопоставление данных с двумя уникальными наборами данных

Создать контрольный список Excel из новых еженедельных файлов?

Раскраска ячеек Excel с помощью xlsx

Как определить формулу для времени выполнения с учетом количественных данных, Excel, линий тренда, моделирования monte carlo

C # 4.0 Excel Создает диаграмму и позицию

Связанный объект Excel в Powerpoint не обновляется при показе в слайд-шоу

Некоторые файлы выдают ошибку переполнения

Как использовать кнопку в качестве спинбаттона

Давайте будем гением компьютера.