在VBA中插入字符串和每隔一列的顺序号

Question

我无法弄清楚这一点。

First Few Columns of data

现在我有一堆500-1000列数据的工作表。每列旁边都是我插入的空格。我试图插入文本＆＃34; Column＆＃34;接下来是一个序号＆＃34; Column1＆＃34; ＆＃34;列2＆＃34; ＆＃34;栏3＆＃34;等，直到数据结束。

到目前为止，我一直试着玩

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