ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
数据管理利器Foxtable2022下载 Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 Power Query数据清洗实战攻略 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 152|回复: 10

[求助] 求如何提取二维数组中指定行到单元格

[复制链接]

TA的精华主题

TA的得分主题

发表于 2021-11-24 13:12 | 显示全部楼层 |阅读模式
已有一个二维数组为4000行,4列。需要分别四次,每次将1000行(1~1000,1001~2000,2001~3000,3001~4000)数据复制到指定单元格
用 .Range("A2:D2").Resize(1000) = iArr_Educe()语句可以得到前1000个数据,但后面的不知道怎么写,如何表述i数组中第1001~2000行呢?
Arr_Educe(1000,2001)是不行的。可以不用循环取值再建一个新数组,能否一次性取得呢?求指教


TA的精华主题

TA的得分主题

发表于 2021-11-24 13:51 | 显示全部楼层
for i = 0 to 3
    cells(i*1000+2,1).resize(1000,4) = xxxxx
next

TA的精华主题

TA的得分主题

发表于 2021-11-24 14:00 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2021-11-24 14:25 | 显示全部楼层
loirol 发表于 2021-11-24 13:51
for i = 0 to 3
    cells(i*1000+2,1).resize(1000,4) = xxxxx
next

这样只是一直在复制数组中前1000行的数据到不同的单元格而已。我的要求是反过来,单元格不变(A2:D1001),循环4次填入数组中1~1000,1001~2000,2001~3000,3001~4000的数值,因为工作表是要导出成一个新的CSV文件的。目前我用开新的数组来解决,但觉得还是比较累赘
    j是数组的行数
    'k = Application.WorksheetFunction.RoundUp(j / 1000, 0)
    'For i = 1 To k
    '     .Range("A2:D1001").ClearContents
    '    iArr_Educe_Split() = .Range("A2:D1001")
    '    For x = 1 To 1000
    '        For y = 1 To 4
    '            iArr_Educe_Split(x, y) = iArr_Educe((i - 1) * 1000 + x, y)
    '        Next
    '    Next
    '    .Range("A2:D2").Resize(1000) = iArr_Educe_Split()
    '    '.Range("E1:I1").EntireColumn.Delete
    '    .Copy
    '    ActiveWorkbook.SaveAs Filename:=Stpath & "MV Price List-" & iMonth & "(" & Format(Now, "YYYYMMDDHHMM") & "-" & i & ").csv", FileFormat:=xlCSV
    '    ActiveWorkbook.Close SaveChanges:=True
    'Next

TA的精华主题

TA的得分主题

发表于 2021-11-24 14:46 | 显示全部楼层
loirol 发表于 2021-11-24 13:51
for i = 0 to 3
    cells(i*1000+2,1).resize(1000,4) = xxxxx
next

他要求是不循环

TA的精华主题

TA的得分主题

发表于 2021-11-24 14:53 | 显示全部楼层
如果是想按列或行读取二维数组,可以试试application.index()
比如arr的base=1,
第2行:application.index(arr,2)
第2列:application.index(arr,,2)
读取第2行写入 Range("A1:D4")=application.index(arr,2)
读取第2列写入 Range("A1").resize(1000)=application.index(arr,,2)

TA的精华主题

TA的得分主题

发表于 2021-11-24 15:01 | 显示全部楼层
我觉得这个问题可以反馈给微软office开发部门。

TA的精华主题

TA的得分主题

发表于 2021-11-24 15:03 | 显示全部楼层
loirol 发表于 2021-11-24 13:51
for i = 0 to 3
    cells(i*1000+2,1).resize(1000,4) = xxxxx
next

你这循环多少遍还是只提取了前1000条

TA的精华主题

TA的得分主题

发表于 2021-11-24 15:21 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2021-11-24 15:21 来自手机 | 显示全部楼层
本帖最后由 lss001 于 2021-12-1 23:18 编辑

Sub 使用excel虚拟表拆分二维数组()
    arr = [a1:d4000] '二维数组
    Set sh = CreateObject("excel.sheet") '虚拟表
    With sh.ActiveSheet
    .[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
        arr1 = .[a1].Resize(1000, 4)
        arr2 = .[a1001].Resize(1000, 4)
        arr3 = .[a2001].Resize(1000, 4)
        arr4 = .[a3001].Resize(1000, 4)
    End With
    sh.Close '关闭虚拟表
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2021-12-4 03:16 , Processed in 0.064063 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2021 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表