如何从一块数据区域中获取连续的有效数据？

lcydhpc

    如附件所示，G10：K17区域中，有的单元格有数据，有的单元格为空值。如何将其中的空值自动删除，并将有效值按顺序(按列)复制到指定区域(附件中是在B3：B17区域)当中？
    公式、VBA都行。急!谢谢啦。

lcydhpc

补充说明：源数据区域是固定不变的，都是G10：K17，但是其中内容根据实际情况会随机变化!

henrydsy

1. Sub DelSpace()
   
2.     Dim arr, str As String
   
3.     Dim i As Long
   
4.     Dim j As Long
   
5.     Dim n As Long
   
6.     arr = Range("G10:K16")
   
7.     For i = 1 To UBound(arr, 2)
   
8.         For j = 1 To UBound(arr, 1)
   
9.             If Trim(arr(j, i)) <> "" Then
   
10.                 str = str & arr(j, i) & ","
    
11.                 n = n + 1
    
12.             End If
    
13.         Next
    
14.     Next
    
15.     Range("B3").Resize(n, 1) = Application.Transpose(Split(str, ","))
    
16. End Sub
    

复制代码

niko88819

B3

{=INDIRECT(TEXT(RIGHT(SMALL(IF($G$10:$K$17<>"",COLUMN($G$10:$K$17)*1000001+ROW($G$10:$K$17)*100),ROW(A1)),5),"R0C00"),)}