Excel将数据从一个表单移动到另一个表单并放入下一个空行

我有一个值来自一个表，我试图写一个VBAmacros来移动到另一个工作表，它将被放置在下一个空行，

这里是我迄今为止select的数据去：

'storing the values to be moved Dim DayID As String Dim Shift As Integer Dim Operator As String Dim Operation As String Dim PartNum As String Dim Asset As String 'placing selected cells Sheets("Raw Data").Select Range("A10000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).select ActiveCell.Value = DayID 

我已经到了这一点，看看我是否只是把date放在广告中而没有。 我是新来的VBA，并不完全明白我在做什么，所以任何帮助表示赞赏！

如果有帮助的话，我将数据放在列A，M，O，Q，N和P

Answer 1

这假定您正在处理包含代码的相同工作簿。 如果没有，您可以将“ThisWorkbook”更改为“ActiveWorkbook”。 尽pipe现在已经是过度了，但我还是把它包括在内，相信在你构build这个子程序的时候，它会变得越来越相关。 编辑将前三个variables放在适当的列中。 我把它留给你来填写剩下的代码：

 Sub FirstStep() 'storing the values to be moved Dim DayID As String Dim Shift As Integer Dim Operator As String Dim Operation As String Dim PartNum As String Dim Asset As String Dim wsTarget As Worksheet Set wsTarget = ThisWorkbook.Worksheets("Raw Data") 'Would be much better to change the CodeName of the sheet and reference directly. 'placing selected cells With wsTarget .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = DayID .Cells(Rows.Count, 13).End(xlUp).Offset(1, 0).Value = Shift .Cells(Rows.Count, 15).End(xlUp).Offset(1, 0).Value = Operator End With End Sub 

Answer 2

没有完全知道你想填写什么样的价值观，你开始的是什么样的表格，以及你想要结果如何，下面的东西至less应该让你开始。

 Sub test() Dim rData As Worksheet Dim lRow As Long Dim arr(5) As Variant Set rData = Sheets("Raw Data") arr(0) = "A" arr(1) = "M" arr(2) = "O" arr(3) = "Q" arr(4) = "N" arr(5) = "P" With rData For Each element In arr lRow = .Cells(.Rows.Count, element).End(xlUp).Row + 1 .Cells(lRow, element).Value = "Value in Column " & element Next element End With End Sub