Excel 在列中显示行和值

在Excel中，我试图在C1中显示A1单元格值，在C2中显示B1单元格值，反之亦然。不知道怎么做。在VBA中有什么方法可以做到这一点吗？请帮忙

---

复制并粘贴特殊-粘贴在单元格C1中，勾选转置框

快捷键：Ctrl+C（一起），然后Alt、E、S、E（依次）

尝试以下代码

Public Sub program()
    Dim i As Long
    Dim j As Long

    i = 1
    j = 1
    Do While Cells(i, "A").Value <> ""
        Cells(j, "C").Value = Cells(i, "A").Value
        j = j + 1
        Cells(j, "C").Value = Cells(i, "B").Value
        i = i + 1
        j = j + 1
    Loop
End Sub

公共子程序（）
我想我会坚持多久
Dim j尽可能长
i=1
j=1
Do While单元格（i，“A”）。值“”
单元格（j，“C”）。数值=单元格（i，“A”）。数值
j=j+1
单元格（j，“C”）。数值=单元格（i，“B”）。数值
i=i+1
j=j+1
环
端接头

使用以下公式执行：

=IF（MOD（ROW（）；2）=1；INDEX（A:B；（1+ROW（））/2；1）；INDEX（A:B；ROW（）/2；2））

。只需将其放置在

C1

上并拖动即可。

感谢您的回复，但我需要将结果垂直显示在“C”列上。这与我预期的工作方式完全相同。非常感谢：）几乎没有改进：您可以使用以下

单元格（j*2-1，“C”）。value=单元格（j，“A”）。value

和

单元格（j*2，“C”）。value

和

单元格（j*2，“C”）。value=单元格（j，“B”）。value

和之后的增量

j=j+1

单元格（1,3）=单元格（1,1）等等