Office 365 Excel - 将单元格矩阵转换为没有空白的列表

Question

我正在尝试取一个 2500x2500 个单元格的矩阵（95％ 的单元格是空白）并创建一个没有任何空白的列表。

Answer 1

首先输入您的数据A1通过CRD2500.然后运行这个简短的宏：

Sub MakeAList()
        Dim r As Range, N As Long, cell As Range

        Set r = Range("A1:CRD2500")
        N = 1
        For Each cell In r
            If cell.Value <> "" Then
                Range("CRE" & N).Value = cell.Value
                N = N + 1
            End If
        Next cell
End Sub

列表将显示在列中卓越房地产经纪。