excel 列转行 函数编写

发布网友 发布时间：2022-03-24 16:52

我来回答

共4个回答

热心网友 时间：2022-03-24 18:21

打开excel，复制要列转行的数据

选择要粘贴的行，右键找到‘选择性粘贴’一项点击，弹出一个选项框，选择'转置'，(默认未选中)，点击确定。步骤与上类似。

 显示结果列转行。

热心网友 时间：2022-03-24 19:39

Sub LJKL()
 [D:Z] = ""
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To [a65536].End(3).Row
      d(Cells(i, 1).Value) = d(Cells(i, 1).Value) & "|" & Cells(i, 2) & "●" & Cells(i, 3)
    Next
    ar = d.keys: br = d.items
    For x = 0 To d.Count - 1
       ss = Split(br(x), "|")
       For y = 1 To UBound(ss)
           k = k + 2
           sss = Split(ss(y), "●")
           Cells(k, x + 4) = sss(1)
           Cells(k - 1, x + 4) = Format(sss(0), "h:mm")
       Next
       k = 0
    Next
End Sub

根据A列来转置分列，A列的数字代表重新分列后所在的列

热心网友 时间：2022-03-24 21:14

D1单元格写入公式
=INDEX($B:$B,COLUMN(A1)+INT(ROW(A2)/2-1)*4)
再设置单元格格式为时间格式

D2单元格写入公式
=INDEX($C:$C,COLUMN(A1)+INT(ROW(A2)/2-1)*4)

选中D1,D2单元格右拉填充公式至G列
再选中D1至G2单元格下拉填充公式

热心网友 时间：2022-03-24 23:05

D1单元格等于
if(mod(row(),2)=1,offset($b:$b,int(row()/2)*4 COLUMNS($d1:d1)-1，1,1,1)，offset($c:$c,(int(row()/2)-1)*4 COLUMNS($d2:d2)-1,1,1,1))
把D1单元格复制到D,E,F,G列