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

【问题标题】：Transposing 2 Cell Rows into 2 Cell Columns Quickly快速将 2 个单元格行转置为 2 个单元格列
【发布时间】：2017-02-20 19:56:49
【问题描述】：

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

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

【问题讨论】：

我会尝试在 VBA 中编写脚本。
Sample data as an image 通常不鼓励使用，但那些手绘箭头会死。

标签： excel transpose vba

【解决方案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]。

【讨论】：

我还没有学习 VBA 功能。我现在很基础。 IF 语句有帮助。

【解决方案2】：

快速公式：

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

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

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

【讨论】：

【解决方案3】：

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

【讨论】：