请问如何将一个数组的一部分赋予另一个数组

turbidtear

请问各位，如附件，有什么办法能把数组ARR的第二、第三列作为数组BRR的第一个元素？

小小鸟前滚翻

嘿嘿，上午才学到的
brr(m) = Cells(i + 1, 1).Resize(j - i + 1, UBound(arr, 2))不知道是否合你的要求

astupig

使用WorksheetFunction.Index函数

Sub test()
    arr = Range("A2:C14").Value
   
    brr = WorksheetFunction.Index(arr, 0, 2) ''0，2代表取这个区域的第二列所有行
   
    [j1].Resize(UBound(brr), 1) = brr
   
End Sub

astupig

1. '使用WorksheetFunction.Index函数
   
2. 
   
3. Sub test()
   
4.     arr = Range("A2:C14").Value
   
5.    
   
6.     brr = WorksheetFunction.Index(arr, 0, 2)
   
7. ''0，2代表取这个区域的第二列所有行
   
8.    
   
9.     [j1].Resize(UBound(brr), 1) = brr
   
10.    
    
11. End Sub

复制代码

microyip

一般情况下，这种是循环重组数组来处理，没有特别方法，如果只取一列，还勉强可以利用转置和index来获得

chxw68

microyip 发表于 2019-6-25 16:30
一般情况下，这种是循环重组数组来处理，没有特别方法，如果只取一列，还勉强可以利用转置和index来获得

楼上正解！

turbidtear

microyip 发表于 2019-6-25 16:30
一般情况下，这种是循环重组数组来处理，没有特别方法，如果只取一列，还勉强可以利用转置和index来获得

感谢回复！

但好像单纯重组数组没法解决我的问题，能不帮我看一下具体怎么处理。
如附件，我的需求是统计sheet1 A列material每个月的消耗，总和体现在在sheet2中对应月份下。我模仿其他帖子能够汇总每个月的总数，但这样出来的数组会多一列material，另外我也不知道怎么让数量对应到sheet2中A列相同的material。

VBA新手，麻烦看看程序怎么做。多谢！