excel - 快速将 2 个单元格行转变成 2 个单元格列

Question

我一直在尝试快速将两个单元格插入后续列。我尝试了转置快捷键、文本到列和其他编码，但最快的方法是一遍又一遍地按 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]。