Excel_VBA_矩阵转为列

Sub 矩阵转列()
'
' 矩阵转列 宏
'
    Dim i, m, n As Long
    i = 1
    For m = 1 To "LastRowCount"
        For n = 1 To 4
        If Not IsEmpty(Cells(m, n)) Then
            Cells(i, 8) = Cells(m, n).Value
            i = i + 1
        End If
        Next
    Next
    
'
End Sub