添加Excel列並填充文本

Question

我收到以下問題。我需要一個宏的代碼，將一列添加到一個excel文件並填充一個特定的文本。該列需要具有與其他列中一樣多的行。如果宏設置列的數據類型正確，它也會很好！

提前致謝！ .penny

Answer 1

這是一個小例子。它向現有的單元格塊添加一列並填充該列：

Sub dural() 
    Dim rng As Range, nLastColumn As Long 
    Dim rng2 As Range 

    Set rng = Range("D5:F15") 
    nLastColumn = rng.Columns.Count + rng.Column - 1 
    Set rng2 = Intersect(rng, Columns(nLastColumn)).Offset(0, 1) 
    rng2.NumberFormat = "@" 
    rng2.Value = "specific text" 
End Sub