excel vba，将新列插入其旁边的列的长度，并在列c中键入Ck DUP并填充列B

Question

我尝试插入一个新列然后插入一个值ck dup并使用fill down来填充列。行数应该等于Previous column中的行数。

以下是我尝试的代码

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

enter image description here

先谢谢你的帮助。

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