Excel VBA，将新列插入其旁边列的长度，然后在C列中键入CK DUP并填充列B

Question

我尝试插入一个新列，然后插入一个值CK DUP并使用填充以填充列。行的数量应等于以前的行数列。

这是我尝试使用的代码

Sub InsertColumn()
        Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        ActiveCell.FormulaR1C1 = "(Ck Dup)"
        Range("C2").Value = "ck dup"
        Range.FillDown
sub End

在此处输入图像描述

感谢提前的帮助。

Answer 1

尝试以下：

Sub InsertColumn()
Dim lLastRow As Long
    lLastRow = Range("B" & Application.Rows.Count).End(xlUp).Row
    Columns("C:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    If lLastRow < 2 Then
        MsgBox "Last Row is less then 2. Nothing to fill"
    Else
        Range("C2:C" & lLastRow) = "ck dup"
    End If
End Sub