Excel转置列与宏数据循环

Question

我有一个问题，我有一列包含一些数据。

我想使用宏自动转置所有这些数据。

我在带有特殊文本的列中有单元格，这是第一行的末尾，第二行的末尾和3 ..我该怎么做？单元格范围是随机的。

谢谢！

Answer 1

此代码将复制ActiveSheet列1中的所有非空白单元格的循环，并将它们转置到从B1开始的相邻单元格。您需要将"Condition Text"更改为与每一行的结尾都是舍入时匹配的语句。因为尚未指定是什么使最后一个单元格对其余单元格唯一，所以您需要自己编写此部分。

Option Explicit
Private Sub TransposeCol()
    Dim sht As Worksheet
    Set sht = ActiveSheet
    Dim i As Long
    i = 1
    Dim n As Long
    n = 2

    While sht.Cells(i, 1) <> "Condition Text"
        sht.Cells(1, n) = sht.Cells(i, 1)
        i = i + 1
        n = n + 1
    Wend
End Sub