excel - 使工作表(2)中行(1)中的每个单元格等于工作表(1)中列(A)中的每个单元格并使其循环

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)