在VBA中每隔一列插入一个字符串和一个序列号
在VBA中每隔一列插入一个字符串和一个序列号
提问于 2016-08-31 09:59:10
我搞不懂这件事。
First Few Columns of data
现在我有一堆包含500-1000列数据的工作表。在每一列的旁边是我插入的空格。我尝试插入文本"Column“，后跟一个序列号"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但还差得远呢。有谁知道怎么做吗？
Stack Overflow用户
回答已采纳
发布于 2016-08-31 10:07:27
尝尝这个
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/39239595
复制相关文章
相似问题
腾讯云开发者
