將信息從一個標籤拉到另一個標籤

我需要從第一個標籤中保存的原始數據填充一個標籤中的特定列。我做了一個快速重新排序的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

將信息從一個標籤拉到另一個標籤

回答

相關問題