联系我们

在使用VBA的经由中，咱们未必会需要用到取数组某行数据好像某列数据的情况，可是又不念念用轮回取一个个取得，有什么目标呢？今天给大师先容一个函数，一个使命表中常用的函数Index，可是它的用法跟使命表中却有点不相同。底下咱们来望望何如用。

如图，我有一个这么的收成表，然后差别取得第三行和第四列的值。

图片

代码展示：

图片

Sub test() Dim arr, rowarr, colarr arr = Range('A1').CurrentRegion.Value '将数据存入数组 rowarr = Application.WorksheetFunction.Index(arr, 3, 0) '取得第三行的值 Debug.Print Join(rowarr, ' ') colarr = Application.WorksheetFunction.Index(arr, 0, 4) '取得第四列的值 Debug.Print Join(Application.Transpose(colarr), ' ')End Sub    遵循展示：

图片

福彩双色球上周星期四(第2024076期)开出奖号：03 22 24 27 29 32 + 15，其中红球大小比为5：1，奇偶比为3：3，012路比为3：1：2，无连码，出现1个重复号码。

VBA中的Application.WorksheetFunction.Index是一个内置函数，用于从数组中复返指定行或列的数据。

该函数的语法如下

Application.WorksheetFunction.Index(array, row_num, [column_num])

参数理解：

array：必需，联系我们要复返数据的数组。

row_num：必需，要复返的行数，淌若为0，则复返通盘列的数据。

app开发

column_num：可选，要复返的列数，淌若不详(为0），则复返通盘行的数据。

细心当复返整列时，复返的是一个二维数组，复返某行时，复返的是一个一维数组

今天的教程就到这里啦，咱们下期再会

本站仅提供存储办事，悉数本体均由用户发布，如发现存害或侵权本体，请点击举报。

• 联系我们
• 对于
• 无需
• 轮回
• 办事