在VBA中插入一个string和一个序列号隔开的其他列

我无法弄清楚这一点。

首先几个数据列

现在我已经有了一堆带有500-1000列数据的工作表。 每列旁边都是我插入的空白区域。 我试图插入文本“列”后面跟着一个序列号“Column1”“Column2”“Column3”等，直到数据结束。

到目前为止，我试图玩弄

Sub insert_column_every_other() Dim lColumn As Long lColumn = ws.Cells(2, Columns.Count).End(xlToLeft).Column For colx = 2 To col.last Step 2 Columns(colx).Value = "Column" +1 Next End Sub 

但并不甚密切。 有没有人知道如何做到这一点？

Answer 1

尝试这个

 Sub insert_column_every_other() Dim lColumn As Long, iColumn As Long With Worksheets("MySheetName") ' change "MySheetName" to your actual worksheet name lColumn = .Cells(2, .Columns.Count).End(xlToLeft).Column For iColumn = 2 To lColumn Step 2 .Cells(2, iColumn).Value = "Column" & iColumn/2 Next iColumn End With End Sub