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

添加Excel列并用文本填充它

1 个答案: