如何用vba实现在excel各工作表中插入一列

这种比较简单的 *** 作，录制一个宏就可以了，你在第一个表格中，点工具－－宏－－录制新宏，然后在sheet1中第一列前插入一列，copy单元格c3中的内容到插入的空白列，从A5开始到最后一行，最后，删除前四行，点击结束录制宏。考虑到执行宏后数据无法恢复，所以你要先备份一遍。全选所有的sheet，点击运行宏，OK，搞定。

方法1:A列没有任何数据时,Row获得的最后一行有数据的行号是1, 数据会从row+1行开始,也就是第二行,要想从第一行写入数据 要用代码判断调整.(代码中没有做这个判断)

Private Sub CommandButton1_Click()

With Sheets(1)

Row = .Range("A65536").End(xlUp).Row

.Range("A" &Row + 1).Value = TextBox1.Value

End With

End Sub

方法2: 定义了一个公共变量N来记录有数据的行.每点一次按钮 N变量加1.

Dim N As Long

Private Sub CommandButton1_Click()

N = N + 1

Sheets(1).Range("A" &N).Value = TextBox1.Value

End Sub

---