Question

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

A列和B列中有数据，所以我在想是否宏可以说数据是否在单元格A15中，然后从G15等拉取信息？没有数据没有拉动。我知道这对某些人来说似乎是基本的，但作为一个新手，我仍然围绕着VBA。

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

找到下一个空行尝试类似这样的

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的值

将信息从一个选项卡拉到另一个选项卡

1 个答案: