Question

我想从> 0.05复制column N (5 to offset)的每个值。然后想要将每个值粘贴到别处;换位。如何编写它以便粘贴区域为每个再现移动？

Set ListOfCells = MainA.Worksheets("Summary_2016").Range("N5", EndCellA.Offset(14, 7))

        For Each SingleCell In ListOfCells
            If SingleCell.Value > 0.05 Then
               Range(SingleCell, SingleCell.Offset(0, -1)).Copy
                 StarterA.Worksheets("Mail").Range ("B30")

            etc

StarterA.Worksheets("Mail").Range ("B30") euh，所以这当然是paste命令，但这必须每次都改变。我如何让它变得动态？

Answer 1

尝试使用Offset和address，说相对位置是（0,5）

  Tgt = SingleCell.Offset(0, 5).Address
  StarterA.Worksheets("Mail").Range (Tgt)

移动每个 - if语句中的复制位置

1 个答案: