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

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

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

来源

2016-06-21 Bradley

谷歌'如何找到最后一行'和'for循环'。 – findwindow

此外，我***高度***建议阅读，并申请，[如何避免使用'。选择']（http://stackoverflow.com/questions/10714251/how-to-avoid-using-select -in-Excel的VBA的宏）。 – BruceWayne

谢谢@BruceWayne，我将保存这个主题，一旦我开始了解基础知识并获得某种理解，我将回到这个。你有没有更多的基本理解的链接，这对于一个完整的新手来说是有用的。我刚刚发现了关于宏的问题，并认为我可以使用它们以便让我的工作更轻松=早期完成;）谢谢 – Bradley

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

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

这是寻找下一个空行，然后从细胞M1在另一个该行中设置A列的值的一个简单的例子表格

来源

2016-06-21 16:41:23 Vbasic4now

感谢您的帮助@ Vbasic4now。我只是开始讨论上面的宏。有可能稍微解释一下，以帮助我更好地理解它吗？以便我可以将它编辑为重新排序的宏。谢谢 – Bradley

@Bradley 1st 2行定义数据正在被拉出的表单（sourceSheet）和粘贴的位置（destSheet）。第三行是定义一个名为lMaxRows的变量作为Desination表单中最后一次使用的行。最后一行然后是说，在目的地上最后使用的行具有与源表格中的单元格M1相同的值之后，使行中列A中的单元格变为行。 – Vbasic4now

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

回答

相关问题