vba根据指定列新建excel(vba新增一列)

1. vba新增一列

软件版本：Office2013

方法如下：

Alt+F11，输入代码如下：

Selection代表选择的单元格

row属性可得到起行号；Column可得到起列号

2.F5执行代码，即可得到当前单元格的行号和列号：

2. vba增加一列数据

利用程序函数applicantion.index例如：

1、applicantion.index(arr,0,2)——提取arr的第二列2、applicantion.index(arr,3,0)——提取arr的第三行

3. vba定义列表

用列表框的方法list.delete。 List1.RemoveItem 0 '删除第1项 List1.RemoveItem 1 '删除第2项 List1.RemoveItem 2 '删除第3项 List1.Clear '全部清空

4. vba怎么表示单元格

作用：比较两个单元格内部的内容，并把不同的字(中英文、数字、符号等都有)用红色标示出来（不同处长短未知） 坐等高手啊~~

5. vba创建列表

//这个程序实现的是选中的文件夹的名字在文本框中显示出来

//显示文件夹，Dir1是文件路径控件的名字，Text1是文本框名字

Private Sub Dir1_Change()

Text1.Text = Dir(Dir1.Path, vbDirectory)

End Sub

//切换盘符,Drive1是切换盘符的控件名字

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub