添加一行,为第一行,并在A1输入1,并选中A1,B1,选中后松开鼠标,点击选区的右下角,并享有拖动填充。
松开鼠标之后,按快捷键“Ctrl+G"→定位→空值→确定
在选择区域,点击右键→插入→整列
选中第一行并将第一行清除内容,然后在B1、C1填入数字1,并选中B1、C1、D1,按照第一步,再操作依次,就完成了。
追问 : 好像很强的样子,这是不是vb的代码啊,当初没学好vb啊
追答 : 是。
使用方法是新建起一个宏,将以下代码
Dim x As Integer
x = 10
Dim i As Integer
For i = 1 To x
Cells(1, 2 * i - 1).Select
Selection.EntireColumn.Insert
Next
复制到
Sub Macro1()
End Sub
之间,运行即可。
X=10是我假设你有10列,你有多少列就输入X=多少。