Excel VBA记录

-----------快捷键----------

函数等提示（默认）：ctrl+j

注释：上单引号'

设置单元格为空可以用：empty/null

 

 

 

-----------基础语法---------

基本数据类型

数据类型	类型标识符	字节
String	$	字符长度(0-65400)
字节型  Byte	无	1
布尔型 Boolean	无	2
整数型 Integer	%	2
长整数型 Long	&	4
单精度型 Single	!	4
双精度型 Double	#	8
日期型 Date	无	8 公元100/1/1-99/12/31
货币型 Currency	@	8
小数点型 Decimal	无	14
变体型 Variant	无	以上任意类型，可变
对象型 Object	无	4

 

变量定义语句及变量作用域 

　　Dim 变量 as 类型 '定义为局部变量，如 Dim xyz as integer
　　Private 变量 as 类型 '定义为私有变量，如 Private xyz as byte
　　Public 变量 as 类型 '定义为公有变量，如 Public xyz as single
　　Global 变量 as 类型 '定义为全局变量，如 Globlal xyz as date
　　Static 变量 as 类型 '定义为静态变量，如 Static xyz as double

定义数组
　　Dim 数组名([lower to ]upper [, [lower to ]upper, ….]) as type ;Lower 缺省值为 0；用Redim语句来重新改变数组大小， 原来数组内容可以通过加preserve关键字来保留。
　　例如：Dim array1()  as  double :  Redim array1(5) : array1(3)=250 :  Redim preserve array1(5,10)

循环语句
　　For counter = start To end [Step step] 'step 默认为1
　　　　[statements] 
　　　　[Exit For] 
　　　　[statements] 
　　Next [counter]
　　例如：
　　　　For x = 2 To 10 Step 2
　　　　　　MsgBox (x) ’MsgBox为弹出显示框
　　　　Next x

 

-----------一些操作---------

 1、将单元格列/行放入数组
　　Dim arr As Variant
　　arr1 = Range("e43:e9020") ’Range("单元格区域")

2、将数组写入单元格
　　Dim arr As Variant
　　arr1 = Range("e43:e9020")
　　'一些操作 
　　Range("e43:e9020") =arr1

3、删除多行（奇数行/偶数行）　　

Sub 删除行()
'
' 删除行 宏
' 删除空白的行
'

'
    Dim nRows As Long
    Dim i As Long
    
    With Worksheets("sheet2")
        nRows = .UsedRange.Rows.Count
        For i = nRows To 10 Step -1
            If i Mod 2 = 0 Then 'Mod 2 =1则为删除奇数行
                .Rows(i).Delete
            End If
        Next
    End With
End Sub                        

 

 

转载于:https://www.cnblogs.com/GYoungBean/p/3507276.html