排列单元格区域数字为一列数字

lljd808

     AA30：AM35的单元格里，有数字也有非数字，能不能把这些数字排列到一个列里，如C列，从C2开始排列。
排列的顺序是从上到下，从左到右，先从AA列开始，其次AB列，按上下顺序。个数有时多有时少

求大侠帮忙，谢谢！！

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, n, brr
  arr = Range("aa30:am" & Cells(Rows.Count, "aa").End(xlUp).Row)
  ReDim brr(1 To UBound(arr, 1) * UBound(arr, 2), 1 To 1) As String
  For j = 1 To UBound(arr, 2)
    For i = 1 To UBound(arr, 1)
      If arr(i, j) > 0 And IsNumeric(arr(i, j)) Then
        n = n + 1: brr(n, 1) = arr(i, j)
      End If
  Next i, j
  With [c:c]
    .ClearContents
    If n > 0 Then .Resize(n, 1) = brr
  End With
End Sub

lljd808

一把小刀闯天下 发表于 2018-3-24 14:59
Option Explicit

Sub test()

很好，谢谢！！

lsc900707

1. Sub gj23w98()
   
2.     arA = [aa30:am35]
   
3.     ReDim arB(1 To UBound(arA) * UBound(arA, 2), 1 To 1)
   
4.     For j = 1 To UBound(arA, 2)
   
5.         For i = 1 To UBound(arA)
   
6.             If IsNumeric(arA(i, j)) Then
   
7.                 m = m + 1
   
8.                 arB(m, 1) = arA(i, j)
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     If m > 0 Then
    
13.        [c2:c20000] = ""
    
14.        [c2].Resize(m, 1) = arB
    
15.     End If
    
16. End Sub
    

复制代码

lsc900707

参考附件：

lljd808

lsc900707 发表于 2018-3-27 17:14
参考附件：

很好，谢谢！