CopyPaste数据范围值到下一个空行

Question

我有一张电子表格，我每天都会用它来制作当天的P＆amp; L. 我将13行复制并粘贴在前一天P＆amp; L的底部。 我想创建一个宏，将复制下一个空单元格的13行。我有代码来获取数据范围内的第一行和最后一行。

我不知道如何抓住13行，第15行到第27行，然后将这些行转到第二行，第29行：

到目前为止我有这个代码：

 Sub PasteValToNextRows()

 Application.ScreenUpdating = False

  lMaxRows = Cells(Rows.Count, "A").End(xlUp).row

   '*****Copy the Rows of Data Range and Paste to next second Empty Row*****

   ''''''Finds the First Row within a Data Range 
   Range("A" & lMaxRows + 0).Offset(-12, 0).EntireRow.Select

   '''''Finds the Last Row within a Data Range
   Range("A" & lMaxRows + 0).EntireRow.Select    

    Application.CutCopyMode = False

     Application.ScreenUpdating = True

     [![enter image description here][1]][1]End Sub

Answer 1

使用复制/粘贴，因为它看起来像你有格式。请参阅评论以反映您需要的范围。

def first_non_nil(*args)
  args.find { |x| !x.nil? }
end

@instance_1 = "hello"
@instance_2 = "world"
entry = first_non_nil(@instance_1, @instance_2)         #=> "hello"
entry = first_non_nil(nil, "world")                     #=> "world" 
entry = first_non_nil(nil, false, "world")              #=> false
entry = first_non_nil("hello", nil)                     #=> "hello" 
entry = first_non_nil(nil, nil)                         #=> nil 
entry = first_non_nil(nil, nil, nil, nil, nil, "hello") #=> "hello"