VBA数组怎么提取出某一行或某列

利用程序函数applicantion.index

例如：

1、applicantion.index(arr,0,2)——提取arr的第二列

2、applicantion.index(arr,3,0)——提取arr的第三行

的方法

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、汉字在前，数字在后面的情形。可以用MID，min， find三个函数来实现提取里面的数字。如图：在B2输入“=MID(A1，MIN(FIND({0，1，2，3，4，5，6，7，8，9}，A1&“0123456789”))，20)”

2 、把单元格里面所有的数字都提出来。可以使用宏。先打开VBA编辑器。工具——宏——visual basic 编辑器

3、在编辑器里点击插入——模块。在模块那里输入如下代码：

Function zzsz(xStr As String) As StringDim i As IntegerFor i = 1 To Len(xStr)If IsNumeric(Mid(xStr， i， 1)) Then zzsz = zzsz &Mid(xStr， i， 1)NextEnd Function

4、回到工作表，在B2单元格那里输入“=zzsz(A2)”。就可以用VBA把A2单元格里所有的数字都提取出来了，如图所示。

Excel怎么只提取表格中的数字

5、指定从第几个数组提取开始。也就是说在不连续的那些数字中，从第几次出现的数组开始提取。同样在模块那里输入如下代码：

Function GetNums(rCell As Range， num As Integer) As StringDim Arr1() As String， Arr2() As StringDim chr As String， Str As StringDim i As Integer， j As IntegerOn Error GoTo line1

Str = rCell.TextFor i = 1 To Len(Str)chr = Mid(Str， i， 1)If (Asc(chr) 《 48 Or Asc(chr) 》 57) ThenStr = Replace(Str， chr， “ ”)End IfNext

Arr1 = Split(Trim(Str))ReDim Arr2(UBound(Arr1))For i = 0 To UBound(Arr1)If Arr1(i) 《》 “” ThenArr2(j) = Arr1(i)j = j + 1End IfNext

GetNums = IIf(num 《= j， Arr2(num - 1)， “”)line1:End Function

---