早上起来，一边换衣服一边想，今天天气这么好，应该去哪吸吸氧、散散心，一度肥肠激动

再一想，我好像好像好像……还有一个报告需要写……可我真的想出去玩

哎呀我裂开了呀……

另一方面，2020年的运势不算太好，虽然四平八稳，但一直没有让自己满意，于是查看了一下2021年的运势，尚可尚可！

以上内容，纯属迷信，瞎玩瞎看

不过这让我想起来周恩来总理给妻子邓颖超写的信：

                                我这一生都是坚定不移的唯物主义者，唯有你，我希望有来生。——周恩来

我亦是坚定不移的唯物主义者，却偏偏遇到不知该用什么理论来解释的事。

************************** 学VBA专用分隔符 **************************

一、向数组中写数据

Sub 向数组中指定的位置写入数据()

Dim arr(1 To 9)         '定义arr为有9个位置的数组

arr(3) = "刘"              '给第3个位置赋值“刘”

arr(5) = "美"              '给第5个位置赋值“美”

arr(7) = "丽"              '给第7个位置赋值“丽”

End Sub

Sub 循环向数组中写入数据()

Dim arr(1 To 4)

For Each Rng In [a1:a4]       '将a1到a4单元格位置赋给Rng

       n = n + 1

       arr(n) = Rng                   '再将Rng位置里的值赋给每个数组变量

Next

End Sub

Sub 常量数组数据写入一般数组()

Dim arr()                                     '相当于arr是个没有固定位置数的动态数组

arr = Array("V", "B", "A", 9)         ‘将数组函数Array里的值写入数组arr

End Sub

Sub 单元格区域数据批量写入数组()

arr1 = [a1:a4]           '注意：当向数组中批量写入多行，结果就是2维数组，如果要转换就用转换函数Application.transpose

arr2 = Application.Transpose([a1:a4])

arr3 = [a1:d1]           '一列数据转为1维数组只需要用1次转换函数，但如果是一行数据转为1维数组就需要用2次转换函数

arr4 =Application.Transpose(Application.Transpose([a1:d1]))

End Sub

二、从数组中取数据

Sub 取数组中指定位置的元素()

arr = [a2:a5]

MsgBox arr(2, 1)        ’取2行1列

MsgBox arr(4, 1)        '取4行1列

End Sub

Sub 循环取数()

arr = [a2:a9]                           '将单元格区域[a2:a9]的值赋给数组arr

For i = 1 To 3

      Cells(i, 3) = arr(i, 1)          '将数组arr的值赋给第3列单元格

Next

End Sub

***********************************

Sub 一次性取数()

arr = [a2:a5]                          '将单元格区域[a2:a5]的值赋给数组arr

Range("d1:d"&4) = arr          '将数组arr的值赋给[d1:d4]区域

End Sub

Sub 用转置函数()

arr = [a2:a5]                                       '将单元格区域[a2:a5]的值赋给数组arr

arr1 = Application.Transpose(arr)      '将单列2维数组arr转置为1维数组

[a7:d7] = arr1                                     '按行的方向给单元格赋数组里的值

[a8:d8] = arr1

[a9:d9] = arr1

End Sub