将2个细胞行快速转换为2个细胞柱

Question

我一直试图快速将两个单元格推入后续列。我尝试了转置快捷方式，Text to Columns和其他编码，但最快的方法是Ctrl-X，Ctrl-V一遍又一遍。

有没有人有快速/简单的解决方案？

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 执行操作，例如转换范围，以防您不了解公式。