在VBA中插入一個字符串和一個序列號每隔一列

Question

我無法弄清楚這一點。

First Few Columns of data

現在我有一大堆工作表與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