多列转行

cg406 · 发表于 2019-10-22 20:37

在很多行数据的表格里，把指定的几列转成一列，其他的列数据不变复制粘贴，怎么操作才能快速实现

super26 · 发表于 2019-10-22 20:49

本帖最后由 super26 于 2019-10-22 20:50 编辑

我的方法是在M3输入“L4”，向右拖到“L11”,即T列。然后将“L”替换L为“=L”

piny · 发表于 2019-10-22 21:01

表2的L11哪裡參照來的?

温馨豆 · 发表于 2019-10-22 21:05

Sub Joby()
Dim i&, j&, r&
r = 3
For i = 2 To Sheets("表1").Range("a1").CurrentRegion.Rows.Count
      For j = 12 To 16
         If Sheets("表1").Cells(i, j) = "" Then
            Exit For
         Else
            Sheets("表1").Range("a" & i & ":k" & i).Copy Sheets("表2").Cells(r, 1)
            Sheets("表1").Cells(i, j).Copy Sheets("表2").Cells(r, 12)
            r = r + 1
         End If
      Next
Next
End Sub

hcm19522 · 发表于 2019-10-23 12:10

R2:T10{=IFERROR(INDIRECT(TEXT(SMALL(IF($L$2:$P$5>0,ROW($2:$5)/1%+IF(COLUMN(A1)>2,COLUMN($L:$P),COLUMN(J1))),ROW(A1)),"!R0C00"),),"")

		自动登录	找回密码
密码			免费注册

[求助] 多列转行

评分

评分