VBA用两种方法 把数据表 非空值 填充到结果表

laoau138

VBA用两种方法 把数据表  非空值  填充到结果表

望帝春心

1. Sub 单元格循环()
   
2.     Dim rng As Range
   
3.     t = Timer
   
4.     Set rng = Sheets("数据表").UsedRange
   
5.     For Each cell In rng
   
6.         If Len(cell) Then
   
7.             n = n + 1
   
8.             Sheets("结果表").Cells(n, 1) = cell.Value
   
9.         End If
   
10.     Next
    
11.     MsgBox "结果表已完成，用时：" & Format(Timer - t, "0.00") & "秒"
    
12. End Sub

复制代码

望帝春心

1. Sub 数组循环()
   
2.     Dim arr, i&, j&, brr()
   
3.     t = Timer
   
4.     arr = Sheets("数据表").UsedRange.Value
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             If Len(arr(i, j)) Then
   
8.                 n = n + 1
   
9.                 ReDim Preserve brr(1 To n)
   
10.                 brr(n) = arr(i, j)
    
11.             End If
    
12.         Next
    
13.     Next
    
14.     Sheets("结果表").Cells(1, 1).Resize(n, 1) = Application.Transpose(brr)
    
15.     MsgBox "结果表已完成，用时：" & Format(Timer - t, "0.00") & "秒"
    
16. End Sub

复制代码