插入新行並填充

Question

我需要幫助創建一個基於數量列的分割訂單的Excel宏。 在前面的表格中，我們有4個訂單，其中兩個的數量大於1.請參閱宏觀圖片

我需要的是一個可以檢查數量字段並根據數量值插入新行的excel宏如果大於1，則使用原始行中的數據填充這些行。 然後最後一步是刪除C列。看到宏觀圖像後

我從來沒有使用宏之前，所以我甚至不知道這是否可以做到。

Answer 1

它只有10行代碼。 SO不是我們爲你工作的代碼血汗工廠，它是我們幫助你爲自己工作的地方。

這將輪詢的行，你退步：

For X = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 

這是關鍵，因爲你會被插入行，去轉發創建所有類型的污穢。

然後你將需要一個循環內使用您的qty作爲參考。這是一個我建立，但是你需要作出一些改變它爲你列的工作：

For Y = 1 To Range("B" & X).Value - 1 

然後，你需要行X複製此循環中

下一頁線將與插入在行X + 1上向下移動（如Insert Shift:=xlDown）或在行X上移動1行，您的選擇是如何執行此操作的。

最後要做的就是刪除C列，這是可以做到這樣Range("C1").EntireColumn.Delete

就是它，整個宏剛落，一對夫婦的nextS和端子並運行它。

您將需要Dim X和Y，將它們變暗爲長。

如果您發現卡住的代碼後退出，我們可以幫助您解決問題。