Question

excel中怎么把竖列的数据1、2、3（次数后面的日期）转置到横行里面？

如图，怎么把同一个人的次数日期，以后面横行的形式作出来？数据太多，急求解决方法。

Answer 1

分公式法和VBA法：

公式法：

1、M，N，O列都设为日期型。

2、M2单元格输入如下公式，右拖复制，再下拖复制即可。

=IF(OFFSET($K2,COLUMN()-COLUMN($M2),)=M$1,OFFSET($L$1,LOOKUP(1,0/($I$1:$I2<>""),ROW(I$1:$I2))-1+COLUMN()-COLUMN($M2),),"")

-------------------------------------------------------------------------------------

VBA宏代码法：

1、先把后面要分组日期的M，N，O列都设为日期型。

2、右键点击工作表名，选“查看代码”，如图一。

3、把下面代码复制到打开的代码页，再按F5运行即可，如图二。

注：按F5时无任何反应的，按完返回查看工作表内容即可，效果如图三。此操作不可撤消，操作前请备份好，以免操作不当引起数据丢失，切记！切记！

Sub 横向分列()

  Dim I&, J&

  I = 1

  Do

    I = I + 1

    If Len(Range("I" & I)) = 0 And Len(Range("K" & I)) = 0 Then Exit Do

    If Len(Range("I" & I)) = 0 Then J = J + 1 Else J = 0

    Cells(I - J, 13 + J) = Range("L" & I)

  Loop

End Sub

图一

图二

图三

Answer 2

可以复制粘贴时，选择性粘贴，转置即可哈