添加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