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

vBA 数组写入单元格

代码及注释如下: 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列单元格值依次存放...

你代码中的Arr数组是一个一维数组,它可以直接放到某一行中,如 [a1].resize(1,10)=arr 如果你要纵向排列,则需要用到工作表函数中的转置函数来处理,如 [a1].resize(10,1)=application.TRANSPOSE(arr)

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

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

Sub s() sn = [l1] en = [n1] stp = [t1] arr = [a2].CurrentRegion cc = 1 i = 1 Do Until arr(i, 1) = sn i = i + 1 Loop sl = i Do Until arr(i, 1) = en i = i + 1 If i = UBound(arr) Then Exit Do Loop el = i ReDim brr(sl To el, 1 To 3...

比如你要在A1单元格输入数组公式 =A2:A10*D1:L1 用以下代码 Sub test() Range("A1").FormulaArray = "=A2:A10*D1:L1"End Sub

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

您好,我来为您解答: 没有非常简便的办法,只能用循环一 一读入数组 只能循环写入 REDIM PRESERVE 希望我的回答对你有帮助。

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

dim val as Variant dim n as integer For n = LBound(val) To UBound(val) val(n)=sheets("你的sheet名").range("你的单元格名") next

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