快速将 2 个单元格行转置为 2 个单元格列

Question

我一直在尝试快速将两个单元格推入后续列。我尝试了转置快捷方式、文本到列和其他编码，但最快的方法是一遍又一遍地使用 Ctrl-X、Ctrl-V。

有人有 quick/simple 解决方案吗？

Answer 1

一些快速 VBA 看起来像这样，

dim rw as long
with activesheet
    for rw=315 to .cells(rows.count, "A").end(xlup).row step 4
        .cells(rw, "A").offset(-1, 1).resize(1, 2) = application.transpose(.cells(rw, "A").resize(2, 1)).value
        .cells(rw, "A").resize(2, 1).clearcontents
    next rw
end with

使用 [F8] 逐步执行几个循环，当您对它感到满意时，将光标放在 End With 上并点击 [ctrl]+[F8]。

Answer 2

一个快速公式：

（注意这不会删除现有值，而只是复制值。）

将其放在名字旁边的 B 列中，然后复制一列并向下复制：

=IF(MOD(ROW(1:1)-1,4)=0,INDEX($A:$A,ROW()+COLUMN(A:A)),"")

Answer 3

您还可以使用 Kutools 执行操作，例如转置范围，以防您不知道公式。

快速将 2 个单元格行转置为 2 个单元格列

Transposing 2 Cell Rows into 2 Cell Columns Quickly

excel

vba

transpose