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