在列中顯示行值

在Excel中，上午試圖顯示C1中的A1單元格值和C2中的B1單元格值，反之亦然。不知道如何做到這一點。有沒有辦法在VBA中做到這一點？請幫忙！在列中顯示行值

2017-06-21 Narendiran GP

單元格（1,3）=單元格（1,1）等等 – WhatsThePoint

請嘗試以下代碼

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

來源

2017-06-21 07:31:36 Zsmaster

這與我的預期完全相同。謝謝:) –

小改進：你可以將它減少到只有一個計數器'j'並通過使用下面的'Cells（j * 2 - 1，「C」）完全移除'i'。value = Cells（j， A「）.value和Cells（j * 2，」C「）。value = Cells（j，」B「）.value'，然後增加'j = j + 1' –

-2

複製和粘貼特殊 - 粘貼在細胞C1，蜱置盒

鍵：Ctrl + C（一起）然後Alt鍵，E，S，E（連續）

來源

2017-06-21 07:29:15 modhorat

感謝您的回覆，但我需要在列「C」上正確顯示結果 –

通過公式：=IF(MOD(ROW();2)=1;INDEX(A:B;(1+ROW())/2;1);INDEX(A:B;ROW()/2;2))執行此操作。只需將它放在C1上並拖動即可。

來源

2017-06-21 07:35:42 Pspl

在列中顯示行值

回答

相關問題