在excel里插入一列，用哪个函数vba

Posted 2023-05-05

Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

教你一个用VBA的技巧：

以后你想知道类似于插入的vba编码怎么写，可以利用宏录制，宏录制后会自动在编辑器中生成一个模块，你所录制的宏  的相应编码就在里面，这样你就可以参考使用了。

参考技术A 在模块中输入以下语句，这里是在C列之前插入一列，根据实际情况自行调整"C:C"即可。
Sub 插入列()
Columns("C:C").Insert Shift:=xlToRight
End Sub 参考技术B Sub example()
    '在E列左边插入1列
    Columns("E:E").Insert
    
    '或者
    Columns(5).Insert
End Sub

参考技术C 直接录制宏就可以了
Sub Macro2()'

Columns("D:D").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

怎么用vba在excel中统计每列有多少行数

A列最底端有数据的单元格
[a65536].end(xlup).row

如果是统计每列有多少非空单元格
就要调用COUNTA函数方便些
WorksheetFunction.CountA (Range("A:A")) 参考技术A 在vba中调用counta函数统计 参考技术B 用do ... while 语句
例如统计A列用的行数：
n=1
do while range("A"&n)<>""
HangShu=n
n=n+1
loop