将信息从一个标签拉到另一个标签

我需要从第一个选项卡中保存的原始数据填充一个选项卡中的特定列。 我做了一个快速重新sorting的VBA代码，以帮助任何人了解我想要做什么，希望他们可以改进。 我还需要VBA代码停止在数据结束的行。 目前logging的VBA代码下拉到第159行，而原始选项卡中的数据停在第72行。我将在信息结束的行停止我的VBA代码，但这种情况每天都在变化，可能在第1行（如果我在原始数据结束处填充一个单元格，它将使表单无法用于我需要的其他目的，即使它是零）。

有A列和B列的数据，所以我想macros是否可以说数据是在单元格A15，然后通过G15等拉动信息？ 没有数据没有拉。 我知道这可能对某些人来说似乎是基本的，但作为一个新手，我仍然会在VBA中find自己的头。

Sub Populate_Order() ActiveWindow.SmallScroll Down:=-15 Range("M8").Select ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-6]" Range("M8").Select Selection.AutoFill Destination:=Range("M8:M159"), Type:=xlFillDefault Range("M8:M159").Select ActiveWindow.SmallScroll Down:=-135 Range("Q8").Select ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-9]" Range("Q8").Select Selection.AutoFill Destination:=Range("Q8:Q159"), Type:=xlFillDefault Range("Q8:Q159").Select ActiveWindow.SmallScroll Down:=-132 Range("R8").Select ActiveCell.FormulaR1C1 = "='Order Sheet'!R[7]C[-9]" Range("R8").Select Selection.AutoFill Destination:=Range("R8:R159"), Type:=xlFillDefault Range("R8:R159").Select ActiveWindow.SmallScroll Down:=-123 Range("I3").Select 

Answer 1

find下一个空行尝试这样的事情

 Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Worksheets("sheet1") Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("sheet2") lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row destSheet.range("A" & lMaxRows + 1).Value = sourceSheet.range("M1").Value 

这是查找下一个空行然后将该行中的列A设置为另一个表单元格M1中的值的简单示例