vba把一列数据赋值给数组（VBA中如何用EXCEL表中的数据给数组赋值）

：暂无数据 2026-07-29 13:40:03 ：0

大家好,今天小编来为大家解答以下的问题，关于vba把一列数据赋值给数组，VBA中如何用EXCEL表中的数据给数组赋值这个很多人还不知道，现在让我们一起来看看吧！

本文目录

VBA中如何用EXCEL表中的数据给数组赋值
VBA 中如何把工作表中一列的值附给一个数组
EXCEL用VBA将A列数值存入一个数组中
vb如何把excel一列的值赋给数组
EXCEL里vba单元格值赋给数组的问题
VBA中如何把A这列数赋值给数组谢谢
VBA中，把一列数据赋值给数组，代码怎么写的

VBA中如何用EXCEL表中的数据给数组赋值

Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲，多维数组赋值只要沿用二维的方法即可。在将vba 数组赋值的方法之前，先说下为什么要用数组的方法来写程序吧。使用excel vba数组赋值的主要目的是为了提高程序运行效率，相信用vba编程的童鞋都遇到过程序运行过慢的问题，其中最主要的一个原因就是excel vba程序从头至尾都在操作对象。用excel vba对数组进行赋值，即是将对象的值及相关属性，全部存储到内存中，然后在内存里执行其他程序，这样速度会提高非常多。好了，下面说怎么给excel vba数组进行赋值吧EXCEL VBA一维数组赋值的方法int Arr(5)={1,2,3,4,5}说明：括号中的5是指数组长度，固定数组在最开始确定好数组长度，使内存分配好空间，免去重定义数组长度，效率会高些。如果不定义数组长度的话，后期可以使用redim来更改。EXCEL VBA二维数组赋值的方法Arr = Arr = Range(Sheets("文本1").Range("a1"), Sheets("文本1"). Range("a" Cells(65536, 1).End(xlUp).Row))说明：两种赋值方法如上，一个是赋予固定值，另一个是将某区域内数值全部导入。EXCEL VBA重新定义数组的方法ReDim Preserve Arr(j)最后说下excel vba二维数组取数据上限的程序，如下，不过要先确定好你的数组是从0开始计数还是从1开始计数的，上面所讲数组赋值的例子都是从1开始计数的。

VBA 中如何把工作表中一列的值附给一个数组

最后的员工号似乎不需要，因为你只是要统计每一个员工组而不是每一个员工每个月的工作时间。
sub statistic()
a=cells(65536,1).end(xlUp).row
dim group(n,12) ’假设一共有n个工作组
for i=1 to a
’假设你的纪录是从每列第一行开始的，如果不是，请将1换成纪录
’开始的那一行
GroupNo=CLong(cells(i,1).value)
Month=CLong(cells(i,2).value)
group(GroupNo,Month)=group(GroupNo,Month)+cells(i,3).value
next i
’以下代码是将统计结果显示出来
cells(1,5)=" 月份工作组"
with cells(i,5)
.borders(xlDiagonalDown).linestyle=xlContinuous
.borders(xlDiagonalDown).weight=xlThin
.wraptext=true
end with
for i=1 to n
cells(1,5+i)=i
next i
for i=1 to 12
cells(i+1,5)=i
for j=1 to n
cells(i+1,j+5)=group(j,i)
on error resume next
next j
next i
end sub

EXCEL用VBA将A列数值存入一个数组中

Sub a()
Dim arr
n = .End(3).Row
arr = .Resize(n)
End Sub

vb如何把excel一列的值赋给数组

Private Sub Form_Load()
Dim S() As String, i As Integer, j As Integer
Dim cellxd() As Single
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:\1.xls")’把它改成具体文件名称
Set xlSheet = xlBook.Worksheets("Sheet1")
ReDim cellxd(1 To 200)
For i = 1 To 200
cellxd(i) = xlSheet.Cells(i, 1)
Next
xlBook.Close (True)
xlApp.Quit
Set xlBook = Nothing
Set xlBook = Nothing
Set xlApp = Nothing ’释放xlApp对象
MsgBox "已经把第1列的值赋给数组！", vbInformation, "提示"
Unload Me
End Sub

EXCEL里vba单元格值赋给数组的问题

在OFFICE里面，下面的代码不会报错，但是肯定仍然是当前工作表：

Sub xxx()
    Dim s15(), fs15range&, s15r&, s15c&
    fs15range = 1
    s15r = 10
    s15c = 10
    s15 = Range(Cells(1, fs15range), Cells(s15r, s15c)).Value
End Sub