- 博客(1)
- 收藏
- 关注
RSS订阅原创 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
2020-09-23 22:57:19
557
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人