vba中怎么选取二维数组中的某一行或某一列？

的方法

1.1 方法1

循环方法，固定1行/1列，另外一维循环

for arr1(i,1)

1.2 方法2

application.index() 取一维

application.index(arr1,1,0)

application.index(arr1,0,1)

2 工作表函数的index都默认从1开始

2.1 工作表函数

index 的序号默认都是从1开始，而非从0开始

用index取出来的数组，index已经从1开始了

工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始

2.2 数组别忘记了你的index从0还是从1开始

Sub test001()

Dim arr1()

ReDim arr1(3, 3)

Debug.Print "不完整数组展示"

'因为你第一种显示数组只取了数组4*4中 3*3部分

For I = 1 To 3

For J = 1 To 3

arr1(I, J) = 2 * I + 3 * J

Debug.Print arr1(I, J)

Next

Debug.Print

Next

Debug.Print

Debug.Print "完整数组展示"

'这才是数组的完整内容4*4

For I = LBound(arr1) To UBound(arr1)

For J = LBound(arr1, 2) To UBound(arr1, 2)

arr1(I, J) = 2 * I + 3 * J

Debug.Print arr1(I, J) &","

Next

Debug.Print

Next

Debug.Print

'arr2 = Application.Transpose(Application.Index(arr1, , 1))

'arr2 = Application.Transpose(Application.Transpose(Application.Index(arr1, 1, 0)))

'为啥第0行变成了第2行？--因为你第一种显示数组只取了数组4*4中 3*3部分

'index 的序号默认都是从1开始，而非从0开始

'用index取出来的数组，index已经从1开始了

'工作表函数index ,match都是index从1开始，EXCEL本身 row column 都得从1开始

人活一辈子，就活一颗心，心好了，一切就都好了，心强大了，一切问题，都不是问题。

人的心，虽然只有拳头般大小，当它强大的时候，其力量是无穷无尽的，可以战胜一切，当它脆弱的时候，特别容易受伤，容易多愁善感。

心，是我们的根，是我们的本，我们要努力修炼自己的心，让它变得越来越强大，因为只有内心强大，方可治愈一切。

没有强大的敌人，只有不够强大的自己

人生，是一场自己和自己的较量，说到底，是自己与心的较量。如果你能够打开自己的内心，积极乐观的去生活，你会发现，生活并没有想象的那么糟糕。

面对不容易的生活，我们要不断强大自己的内心，没人扶的时候，一定要靠自己站稳了，只要你站稳了，生活就无法将你撂倒。

人活着要明白，这个世界，没有强大的敌人，只有不够强大的自己，如果你对现在的生活不满意，千万别抱怨，努力强大自己的内心，才是我们唯一的出路。

只要你内心足够强大，人生就没有过不去的坎

人生路上，坎坎坷坷，磕磕绊绊，如果你内心不够强大，那这些坎坎坷坷，磕磕绊绊，都会成为你人生路上，一道道过不去的坎，你会走得异常艰难。

人生的坎，不好过，特别是心坎，最难过，过了这道坎，还有下道坎，过了这一关，还有下一关。面对这些关关坎坎，我们必须勇敢往前走，即使心里感到害怕，也要硬着头皮往前冲。

人生没有过不去的坎，只要你勇敢，只要内心足够强大，一切都会过去的，不信，你回过头来看看，你已经跨过了多少坎坷，闯过了多少关。

内心强大，是治愈一切的良方

面对生活的不如意，面对情感的波折，面对工作上的糟心，你是否心烦意乱？是否焦躁不安？如果是，请一定要强大自己的内心，因为内心强大，是治愈一切的良方。

当你的内心，变得足够强大，一切困难，皆可战胜，一切问题，皆可解决。心强则胜，心弱则败，很多时候，打败我们的，不是生活的不如意，也不是情感的波折，更不是工作上的糟心，而是我们内心的脆弱。

真的，我从来不怕现实太残酷，就怕自己不够勇敢，我从来不怕生活太苦太难，就怕自己不够坚强。我相信，只要我们的内心，变得足够强大，人生就没有那么多鸡毛蒜皮。

强大自己的内心，我们才能越活越好

生活的美好，在于追求美好的生活，而美好的生活，源于一颗强大的内心，因为只有内心强大的人，才能消化掉各种不顺心，各种不如意，将阴霾驱散，让美好留在心中。

心中有美好，生活才美好，心中有阳光，人生才芬芳。一颗阴暗的心，托不起一张灿烂的脸，一颗强大的心，可以美化生活，精彩人生，让我们越活越好。

生活有点欺软怕硬，如果你内心很脆弱，生活就会打压你，甚至折磨你，如果你内心足够强大，生活就会奖励你，眷顾你，全世界都会对你和颜悦色。

如下：

1、一维数组与SUM、MAX、MIN函数

对于数值型的一维数组，可以直接使用Sum求和、Min求最小值、Max求最大值。

2、一维数组的筛选Filter

Filter是VBA的函数，所以在前面要写上 VBA.

可以启用”录制宏“，然后自己开始 *** 作：选择数据范围并复制，新建一个工作簿，将数据区域选中并复制过来，然后存为TXT文件，关闭这个新工作簿，然后再停止录制，查看代码，就可以慢慢研究这段代码。

---