fyqt.net
当前位置:首页 >> 数组写入单元格 >>

数组写入单元格

代码及注释如下: Sub main() x = Range("A65536").End(3).Row'x的值为A列中最后一个非空单元格行号 ReDim a(x)'重新定义数组a,使之上限为x For i = 1 To x‘i从A1依次往下循环,直到最后一行 a(i - 1) = Range("A" & i)'将A列单元格值依次存放...

EXCEL表的单元格区域是一个二维数组 dim arr arr=Sheet3.Range("D7:D9") '这时的arr得到的是二维数组 '你要转换成1维数组,先声明一个动态数组再重定义为1维数组 dim brr() redim brr(1 to ubound(arr)) '再重新将二维转一维 for i = 1 to uboun...

用这个: range("a1:a10")=Application.Transpose(arr)

可以使用命名单元格区域,然后可以像数组一样使用了例如:区域名为“dsds”,调用方法: range("dsds")(1,1)表示第一行,第一列如果只用一列: range("dsds")(1)

数据有3万行吗???没有的话,不要写3万,速度就可以快许多。 另外,表里面有公式吗,如果没有公式可以这样写(不过不会快许多,只是看起来简单): Sheets("表1").Range("B2:C30000").Copy Sheets("表2").Range("A2:B30000")Sheets("表1").Ran...

独立的不可以用数组来整体操作,只有一个一个的写了,只有一个规则的方块区域才可以使用数组整体操作。

请参考: Sub Macro1() Dim arr, a arr = Range("A1:A5") '二维数组 a = WorksheetFunction.Transpose(arr) '一维数组 End Sub

Sub s() Dim a a = [a1:a5] [c1:c5] = aEnd Sub

将数组内的元素输出到单元格中的步骤: 1。先选定数组内元素个数的单元格,如数组内有五个元素,那么选定五个单元格,并且是按照数组的排列方式,如果是横向排列,就是选择同一行,如果是竖向排列,就是选择同一列。 2。按F2,输入公式,再按Ctr...

示例: 假设知道数组ary的行数为2和列数3,则可以尝试这样放 range("A1").resize(2,3)=ary

网站首页 | 网站地图
All rights reserved Powered by www.fyqt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com