将每个单元组成（1）的第（2）（2）中等于（a）中的每个单元格（1）中的每个单元格，然后使其循环

Question

For Each cell In sheets(1).Range("A50:A606")
For Each cell2 In sheets(2).Range("EX2:ACB2")

   cell2.Value = cell.Value
Next
Next

（我知道这是错误的，但这就是我的意思）

Answer 1

循环和使用offset（）

Dim i As Long, cell As Range
For Each cell In Sheets(1).Range("A50:A606")
    Sheets(2).Range("EX2").Offset(0, i).value = cell.value
    i = i + 1
Next

您可以在不循环的情况下执行此操作，尽管使用transpose（）：

Dim rng As Range

Set rng = Sheets(1).Range("A50:A606")

Sheets(2).Range("EX2").Resize(rng.Columns.Count, rng.Rows.Count).Value = _
                                            Application.Transpose(rng.Value)