VBA命令及语法列表之数组与集合基本代码

【分享成果，随喜正能量】任何寻求安慰的行为，都只会带来短暂的安全感，不能获得成长。成长是特别艰难的自省，必须抛弃所有顺应自己认知的言行。走不出自己的执念，到哪都是囚徒。。

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。可以大大提高自己的劳动效率，而且可以提高数据的准确性。我这里专注VBA,将我多年的经验汇集在VBA系列九套教程中。

作为我的学员要利用我的积木编程思想，积木编程最重要的是积木如何搭建及拥有积木。在九套教程中我给出了大量的积木，同时讲解了如何搭建。为了让学员拥有更多的积木，我开始着手这部《VBA即用型代码手册（汉英）》的创作，这部手册约600页，集合约500多个的案例，案例我用汉语和英语同时发布，一方面学员从中可以更好的领会和掌握VBA中用到的一些英语知识，另一方面，大家可以看到各种各样的积木。这部手册是大家学习和工作中的不可多得的实用资料。今日的内容是： VBA命令及语法列表之数组与集合基本代码

第二章 EXCEL VBA命令和语法列表

9 数组Arrays

Arrays

Description

描述

VBA Code

Create

创建

Dim arr(1 To 3) As Variant

arr(1) = “one”

arr(2) = “two”

arr(3) = “three”

Create From Excel

从 Excel 创建

Dim arr(1 To 3) As Variant

Dim cell As Range, i As Integer

i = LBound(arr)

For Each cell In Range(“A1:A3”)

i = i + 1

arr(i) = cell.value

Next cell

Read All Items

读取所有项目

Dim i as Long

For i = LBound(arr) To UBound(arr)

MsgBox arr(i)

Next i

Erase

释放

Erase arr

Array to String

数组转字符串

Dim sName As String

sName = Join(arr, “:”)

Increase Size

扩容

ReDim Preserve arr(0 To 100)

Set Value

设定值

arr(1) = 22

1集合Collections

Description

描述

VBA Code

Create

创建

Dim coll As New Collection

coll.Add “one”

coll.Add “two”

Create From Excel

从 Excel 创建

Dim coll As New Collection

Dim cell As Range

For Each cell In Range(“A1:A2”)

coll.Add cell.value

Next cell

Add Item

添加项目

coll.Add “Value”

Add Item Before

之前添加项目

coll.Add “Value”, Before:=1

Add Item After

之后添加项目

coll.Add “Value”, After:=1

Read Item

输出项目

MsgBox coll (1)

Count Items

计数项目

coll.Count

Read All Items

读取所有项目

Dim item As Variant

For Each item In coll

MsgBox item

Next item

Remove Item

除去项目

coll.Remove (1)

Remove All Items

Set coll = New Collection

【分享成果，随喜正能量】我2多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】苦难不会没完没了，幸运也不会永远持续。得意时不忘形，失意时不消沉。人生的起伏都是考验。知幻即离，一个人最了不起的能力，不是摆平任何人，而是摆正自己。。