vba将计算结果存入数组（vba中怎样将数组arr1的结果存入数组arr中）

：暂无数据 2026-04-02 20:40:02 ：0

本文旨在为您说清楚两件事：一是vba将计算结果存入数组到底是什么，二是如何理解vba中怎样将数组arr1的结果存入数组arr中。内容不长，但都是干货，希望能对您有所帮助。

本文目录

vba中怎样将数组arr1的结果存入数组arr中
利用vba筛选数据并将其中的部分结果存为数组
vba如何把while loop得到的结果放入一个array里
Vba inputbox返回的值存入数组
vba中怎么把dateadd返回的值放到数组中
VBA查询结果放入到数组中

vba中怎样将数组arr1的结果存入数组arr中

1.最好有全部代码
2.发生错误时，把鼠标移到高亮处，看下变量的值，如代码arr（z1,1）=《类型不匹配》发生错误时，你把鼠标移到arr,和z1处，看下这变量的值是什么。

Sub Macro1()
dim Month as string
Month="2"
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveSheet.cells.AutoFilter Field:=5, Criteria1:=Month ’筛选月份

RowCount=.end(xlup).row’获取总行数
dim arr(RowCount)
dim arr1(RowCount)
num=0
for i=2 to RowCount
arr(num)=range("L" & i).value’将13列写入数组
arr1(num)=range("M" & i).value’将14列写入数组
num=num+1
next
End Sub

请参考

vba如何把while loop得到的结果放入一个array里

’用字典吧
sub t()
    dim dic as object,i as integer
    set dic=createobject("scripting.dictionary")
    i=1
    with worksheets("Sheet1")
        do while .cells(i,4).value《》""
            if .cells(i,4).value=45 then
                dic(i)=""
            end if
            i=i+1
        loop
    end with
    rownumber=dic.keys
end sub
’数组
sub t2()
    dim i as integer,j as integer,rownumber()
    j=1
    with worksheets("Sheet1")
        i=.cells(1,4).end(xldown).row
        redim rownumber( 1 to i)
        for i=1 to ubound(rownumber)
            if .cells(i,4).value=45 then
                rownumber(j)=.cells(i,4)
                j=j+1
            end if
        loop
    end with
end sub

Vba inputbox返回的值存入数组

首先你变量值赋反了，其次inputbox输入的只是一个值，如果是要数组需要用到split分割，形如arr=Split(InputBox("输入发包方编码数组（以空格分格）：", ""))

vba中怎么把dateadd返回的值放到数组中

DATEADD
在向指定日期加上一段时间的基础上，返回新的 datetime 值。
语法
DATEADD ( datepart , number, date )
参数
datepart
是规定应向日期的哪一部分返回新值的参数。下表列出了 Microsoft **L Server 识别的日期部分和缩写。
日期部分缩写
Year yy, yyyy
quarter qq, q
Month mm, m
dayofyear dy, y
Day dd, d
Week wk, ww
Hour hh
minute mi, n
second ss, s
millisecond ms
number
是用来增加 datepart 的值。如果指定一个不是整数的值，则将废弃此值的小数部分。例如，如果为 datepart 指定 day，为 number 指定 1.75，则 date 将增加 1。
date
是返回 datetime 或 **alldatetime 值或日期格式字符串的表达式。有关指定日期的更多信息，请参见 datetime 和 **alldatetime。
如果您只指定年份的最后两位数字，则小于或等于"两位数年份截止期"配置选项的值的最后两位数字的数字所在世纪与截止年所在世纪相同。大于该选项的值的最后两位数字的数字所在世纪为截止年所在世纪的前一个世纪。例如，如果 two digit year cutoff 为 2049（默认），则 49 被解释为 2049，2050 被解释为 1950。为避免模糊，请使用四位数的年份。
返回类型
返回 datetime，但如果 date 参数是 **alldatetime，返回 **alldatetime。
示例
此示例打印出 pubs 数据库中标题的时间结构的列表。此时间结构表示当前发布日期加上 21 天。
USE pubs
GO
SELECT DATEADD(day, 21, pubdate) AS timeframe
FROM titles
GO
下面是结果集：
timeframe
---------------------------
Jul 3 1991 12:00AM
Jun 30 1991 12:00AM
Jul 21 1991 12:00AM
Jul 13 1991 12:00AM
Jun 30 1991 12:00AM
Jul 9 1991 12:00AM
Mar 14 1997 5:09PM
Jul 21 1991 12:00AM
Jul 3 1994 12:00AM
Mar 14 1997 5:09PM
Nov 11 1991 12:00AM
Jul 6 1991 12:00AM
Oct 26 1991 12:00AM
Jul 3 1991 12:00AM
Jul 3 1991 12:00AM
Nov 11 1991 12:00AM
Jul 3 1991 12:00AM
Jul 3 1991 12:00AM
(18 row(s) affected)
请参见

VBA查询结果放入到数组中

请参照如下代码
查找到的纵坐标存放在集合中。
集合比数字好用。因为你定义数字才10个，可能超出。
Sub test()
Dim WrkRange As Range ’区域
Dim ColumnNum As New Collection ’集合
For Each WrkRange In Range("A2:Z2")
If WrkRange = "beijing" Then
ColumnNum.Add WrkRange.column
End If
Next
End Sub

这不仅仅是一篇关于vba将计算结果存入数组的文章，更是一次关于如何理解复杂概念（以vba中怎样将数组arr1的结果存入数组arr中为例）的演示。

本文编辑：admin

： vba将计算结果存入数组

上一篇：冒泡排序法c++（冒泡排序法c++求数组中的最大值）

下一篇：美图秀秀怎么切割图片？用ppt切割图片的方法