关于不规则range区域赋值给一维数组问题

wangyuhao121

我通过 rng = Application.Intersect(Sheet1.Range("B1:l5"), Sheet1.UsedRange.SpecialCells(xlCellTypeConstants))选中中间数值区域，然后试图将range内数值赋给数组，发现arr(1) = rng.Cells(2, 1)  得到数值不是 49 而是 32

请问各位大神，怎么把不规则range区域 完整赋值给一维数组

下边是我的代码
Sub 按钮1_Click()
Dim rng As Range '筛选区域
Dim arr
ReDim arr(1 To 60)
Set rng = Application.Intersect(Sheet1.Range("B1:l5"), Sheet1.UsedRange.SpecialCells(xlCellTypeConstants))
rng.Select
arr(1) = rng.Cells(2, 1)
MsgBox arr(1)
End Sub

jiminyanyan

你要的结果是怎么样的？

wangyuhao121

jiminyanyan 发表于 2018-7-9 18:53
你要的结果是怎么样的？

把B1：L5之间的非空单元格数值，赋给一维数组

jiangxiaoyun

循环单元格，放入数组。不然直接取单元格值的都是二维数组。

lenghonghai601

1. Sub test()
   
2. Dim i%, arr(), rng As Range
   
3. For Each rng In Range("b1:l5")
   
4.     If rng <> "" Then
   
5.         m = m + 1
   
6.         ReDim Preserve arr(1 To m)
   
7.         arr(m) = rng.Value
   
8.     End If
   
9. Next
   
10. Range("b11").Resize(1, m) = arr
    
11. End Sub

复制代码

zopey

wangyuhao121 发表于 2018-7-10 08:15
把B1：L5之间的非空单元格数值，赋给一维数组

数组顺序 有什么要求 ？

zopey

Sub 按钮1_Click()
Dim rng As Range '筛选区域
Set rng = Application.Intersect(Sheet1.Range("B1:l5"), Sheet1.UsedRange.SpecialCells(xlCellTypeConstants))

Dim arr
ReDim arr(1 To rng.Count)

For Each rr In rng
  k = k + 1
  arr(k) = rr.Value
Next

[p1].Resize(rng.Count, 1) = Application.Transpose(arr)
End Sub

wangyuhao121

lenghonghai601 发表于 2018-7-10 08:33

谢谢，这段代码能满足我的需求

wangyuhao121

zopey 发表于 2018-7-10 09:46
Sub 按钮1_Click()
Dim rng As Range '筛选区域
Set rng = Application.Intersect(Sheet1.Range("B1:l5") ...

我想要的顺序是从第一行到最后一行，从左到右的数字排序，我运行了一下，一维数组里数值还是不包括所有，不知道为啥

zopey

wangyuhao121 发表于 2018-7-10 15:26
我想要的顺序是从第一行到最后一行，从左到右的数字排序，我运行了一下，一维数组里数值还是不包括所有， ...

计41 个 ， 不对 ？