2025年VBA操作Excl表格常用命令

大家好，我是讯享网，很高兴认识大家。

1.获取某一列数据有多少数量

'获取C列的数据 c = Range("C65536").End(3).Row '获取C列的数据数量，需要多加一列就在后面+1即可 c = Range("C65536").End(3).Row +1

讯享网

2.选中当前工作表的某一列，或者行

讯享网 '需要在前面加 Worksheets("Sheet1"). '使用场景：如果你在A表执行的命令，如果不加 Worksheets("B"). 的话，那么执行到了B表的时候，直接使用 Range("C2").Select 会选择的是 A表的内容 Worksheets("Sheet1").Range("C2").Select

3.打开工作薄，就是打开某一个文件

'打开的是文件所在的绝对路径，比如我在桌面新建了一个1.xlsl文件 '赋值路径 表名称 = "C:\Users\Administrator\Desktop\新建文件夹\1.xlsl" '执行open命令，打开这个文件 Workbooks.Open 表名称

4.打开工作薄（文件）里面的某一张工作表

讯享网 Sheets("Sheet1").Activate

5.获取单元格的内容

'获取B列2行的内容 B2 = Range("B2").Value

6.单元格赋值内容

讯享网'B列2行的内容赋值为鸡哥 Range("B2").Value = "蔡徐坤"

7.单元格设置背景颜色

'B列2行的背景颜色设置为 65535 的这个颜色，二进制，RGB 都可以作为参数 Range("B2").Interior.Color = 65535

8.保存并且关闭excl文件

讯享网

讯享网'保存并且关闭当前excl文件 ActiveWorkbook.Close Savechanges:=True

9.把int数值、数字类型转为字符串类型

 i = 1 字符串 = CStr(i)

10.设置某一列的宽度

讯享网'设置D列的宽度为16 Columns("D").ColumnWidth = 16

11.在指定的某一列左右两边插入一列，D列左边插入一列或 D列右边插入一列

'要在哪一列左边插入，就先选中这一列 '先选中D列 Range("D:D").Select '在D列的左边插入一列 Selection.Insert Shift:=xlShiftToRight '如果往右边插入，就把Right替换为left Selection.Insert Shift:=xlShiftToLeft

12.生成一个 1~3 的随机数（这个还没有摸明白，谁要明白麻烦帮忙留言下，谢谢！）

讯享网 '声明随机数 Randomize 随机数 = Int(Rnd * 3 + 1) '开始随机

13. IF判断if 和 else 、elseif 的语法

If 出库数量 > 库存数量 Then Worksheets(工作表).Cells(ii, 4).Value = 随机数 '如果出库数量等于库存数量 ElseIf 出库数量 = 库存数量 Then Worksheets(工作表).Cells(ii, 4).Value = 随机数 Else Worksheets(工作表).Cells(ii, 4).Value = 4 End If

14.获取当前excl表里面一共有多少个工作表

讯享网 'This = 当前，如果不需要就不用加 a = ThisWorkbook.Sheets.Count b = Worksheets.Count

15.For循环语法和终止for循环，跳出for循环

 For ii = 5 To aa 产品名称 = Worksheets(i).Range("B" & ii).Value '名称 If 产品名称 = 0 Then MsgBox ii '终止当前的for循环，跳出循环 Exit For End If Next

16.新建一个工作表，传递自定义表名称，如果传递的表名称存在，则不创建。需要写在模块里面调用

讯享网'方法里面调用模块里面的方法 a = "我是表名称" '开始调用，把表名称传递过去 增加日期表(a)

'模块里面 Sub 增加日期表(a) '定义变量 i = 0 '循环遍历工作表名称，查看有没有已经创建了的 For Each s In Sheets If a = s.Name Then '如果发现有已经创建的了就赋值给遍历 i = 1 End If Next ' MsgBox i '只有在没有赋值的情况下才创建工作表 If i = 0 Then Worksheets.Add before:=Worksheets(1) ActiveSheet.Name = a End If End Sub

2025年VBA操作Excl表格常用命令

相关推荐