vba 把单元格值赋给数组并由数组写入单元格

最新推荐文章于 2024-05-17 20:32:04 发布

鹿漫漫骑

最新推荐文章于 2024-05-17 20:32:04 发布

阅读量6.1k

点赞数 1

分类专栏： vba专栏文章标签： vba

本文链接：https://blog.csdn.net/weixin_44730608/article/details/118651838

版权

vba专栏专栏收录该内容

3 篇文章 0 订阅

订阅专栏

这段VBA代码旨在从Excel工作表中读取数据，将数据存储到多维数组中，并创建一个新的汇总表。用户输入标题行数后，代码会自动获取数据范围，并尝试将非空单元格的数据赋值给数组。然而，代码存在错误，不能直接用数组行标来引用单元格。目前，代码只能逐个单元格赋值，而不是一次性赋值整个数组行。

摘要由CSDN通过智能技术生成

Sub 把单元格值赋给数组()
Dim ary()
Dim i, j, k, rowall, columnall, rownum As Integer
rownum = InputBox("输入标题行所占行数")
rowall = Cells(Rows.Count, 1).End(xlUp).Row
columnall = Cells(1, Columns.Count).End(xlToLeft).Column
k = WorksheetFunction.Count(Range(Cells(1, 1), Cells(rowall, 1)))
ReDim ary(k - 1)
For i = 0 To k - 1
If Cells(i + 1, 1) <> "" Then
ary(i) = Range(Cells(i + 1, 1), Cells(i + 1, columnall))
End If
Next
Worksheets.Add after:=Sheets(ActiveSheet.Name)
ActiveSheet.Name = "汇总表"
For i = 0 To k - 1
' Range(Cells(i + 1, 1), Cells(i + 1, columall)) = ary(i)
Next
End Sub