在列中显示行值

在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

在列中显示行值

回答

相关问题