使用VBA复制垂直列并对angular线粘贴

我有一列数据，我们称之为列A，用35行数据。 如何循环遍历该列，然后将每个数据点粘贴到另一个表中，同时为循环的每个循环递增列和行。 换句话说，我试图在第二张纸上对angular地粘贴。 有没有一种简单的方法来在VBA中执行这样的操作？

Answer 1

不要循环，数组操作有一些乐趣

Sub ColumnToDiagonal() With Sheet2.Cells.Resize(35, 35) .Formula = "=IF(Row()<>Column(), """", sheet1!$A1)" .Value = .Value End With End Sub 

Answer 2

用ASH的tongue舌挖掘;）

不要变得复杂，做一个循环：

 Sub ColumnToDiagonal() Dim r As Long For r = 1 To 35 Worksheets("Sheet2").Cells(r, r).Value = Worksheets("Sheet1").Cells(r, "A").Value Next End Sub