路遇一题之转置

路遇一题

小妞想把相应的转置到一行来

看图

结果如图

跟哥走起

带你一键秒杀

哈哈！

代码如下:

Sub 转置()

Dim ARR

ARR = Sheet1.UsedRange

Cells.Clear

For I = 1 To UBound(ARR)

If ARR(I, 1) <> '' Then

k = I

N = 2

Cells(I, 1) = ARR(I, 1)

Cells(I, 2) = ARR(I, 2)

Else

N = N + 1

Cells(k, N) = ARR(I, 2)

End If

Next

End Sub

不解释

不懂请看上一期

备注：点击下面蓝色字查看

路遇一题之组合

传播正能量：操作方便才是硬道理！

<='' p=''>

貓ゞ哥>

我们最大的进步来源于你的分享和转发