vba动态二维数组_VBA进行Excel二次开发1

    之前讲过python操作excel，但是如果你所有操作都在excel中，那就不需要费劲了，excel的二次开发语言VBA更简单易学，使用非常方便。一起来学习吧，提高工作效率。

    今天来点VBA的基础和常用知识：

Option Explicit'强制定义变量类型Option Base 1 '数组下标从1开始'声明变量及类型，类型可省略dim i as Integer,str as Stringdim rng as Range'声明常量Const pi as single=3.1415'变量赋值[let] i=1 'let可省略' 对象赋值set sheet=Worksheets(1)set rng=Worksheets("Sheet1").Range("A1")rng.value="VBA"'定义一维数组dim Array_test (1 to 10) As Doubledim Array_test1 (9) As Double '0-9for i=1 to 10   Array_test(i)=i   Next'定义二维数组dim arr2(2,5) as Double'定义动态数组dim arr1() as IntegerRedim arr1(2,5) as Integer '重新制定大小'数组生成Arr=Array(1,2,3,4,5,6)Arr=Split("你，今，天，开，心，了，吗","，")Arr=Range("A1:A10").Value'数组使用UBound(Arr)'数组的最大索引LBound(Arr)'数组的最小索引UBound(Arr)-LBound(Arr)+1  '数组元素的个数'多维数组需要指定维度 Ubound(Arr,2)'Join函数将数组内容按指定符号连接Arr=Array(1,2,3,4,5,6)txt=join(Arr,"_")'数据写入单元格Range("A1").Value=10Range("A1:B10").Value="12"Range("A1:A6").Value=Application.WorksheetFunction.Transpose(Arr)'一维列表赋值给列单元需要转置Range("A5:B6")=""'单元格的颜色Range("B1").Interior.Color=RGB(255,255,0)'对象引用方法Application.Workbooks('Book').Worksheets('Sheet1').Range('A2').value'判断if  a>0 ThenElseif  a<0 Thenelse...End If'循环for i=1 to 10 Step 1[Exit For]Next [i]Do [While 逻辑表达式]  [Exit Do]Loop'对所有sheet循环For Each sht In Worksheets  sht.NameNext'过程及函数Function fun(var,arr)Application.Volatile True '易失性函数，数据更新后，自动重算...NextSub test()...end sub'注释Rem==========