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

Question

我有一个值来自一个表，我试图编写一个VBA宏来移动到另一个表单，它将放置在下一个空行中，

这里是我迄今为止尽可能选择数据云：

'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 

我得到了这一点，看看是否有什么我曾与只是把日期在广告工作也没有。我是VBA新手，并不完全了解我在做什么，所以任何帮助表示赞赏！

我将数据放置在列列A，M，O，Q，N和P分别有没有什么帮助

Answer 1

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

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

不完全知道要填写什么样的价值观，有什么你板材正在开始，你究竟希望结果如何，至少应该让你开始。

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