Excel添加行，繼續

我創建了一個引用工作簿。每頁有8張產品，數量/描述/單位/總數，我們通過將需要的項目的數量放入欄A中來建立產品選擇。Excel添加行，繼續

我想創建一個Main如果數量不是0，我將創建基本公式。如果數量爲0，則該行爲空白，如果不是，則填充相應的數據，但這裏是我的位置，米卡住了。

基本上我希望Main工作表像這樣通過公式，但要繼續向下移動表格，然後轉到下一張表格（下一張表格）並繼續。我也希望它沒有任何空行。這可能嗎？

當前代碼：

Sub delblankrows() 

Dim s1 As Worksheet 
Dim tmpR As Range 
Dim rowcount As Long, colcount As Long, i As Long, j As Long, k As Boolean 

Set s1 = Sheets("Complete") 
Set tmpR = s1.UsedRange 
rowcount = tmpR.Rows.Count 
colcount = tmpR.Columns.Count 

For i = rowcount To 1 Step -1 
    k = 0 
For j = 1 To colcount 
    If tmpR.Value2(i, j) <> "" Then 
     k = 1 
     Exit For 
    End If 
Next j 

End Sub

來源

2017-04-15 adams

這是不是一個「代碼對我來說「（甚至是一個」我的公司的代碼，這些代碼太便宜了，不能付錢去做這件事「）網站。請至少從自己的代碼開始，然後，如果/如果遇到特定問題，請回過頭來問一個我們可以回答的具體問題 - 我們將非常樂意爲您提供幫助。 – YowE3K

我明白了，我一直在嘗試自己做。我有單獨的宏，但我無法弄清楚如何把它放在一起。我只是想要一些幫助，我並不是爲我完成的。 – adams

如果您已經完成了一些工作，請發佈您提供的代碼。這樣我們可以**幫助您解決您遇到的問題。（問題中沒有任何代碼的問題是有數百種方法可以實現任何特定的任務，但是其中只有少數幾種方法可以輕鬆地集成到您的代碼中。如果我們可以看到您編寫的代碼，我們可以將建議限制爲對您有用的建議。） – YowE3K

如果你正在試圖做的一切是從具有非空白或非零QTY其他工作表行（單元格的值，而不是公式）拉（假設在列「A」），那麼下面將做到這一點。但是從你的問題陳述你可能會做一些除此之外的事情。此代碼假定你有每個工作表上的一個標題行和數據行開始2它還假設你只有在列中的數據「A」到「d」：

Option Explicit 

Sub AddRowContinueOn() 
    Dim ws As Worksheet, cws As Worksheet 
    Dim cLRow As Integer, sLRow As Integer 

    Set cws = Worksheets("Complete") 
    cLRow = cws.Cells(cws.Rows.Count, "A").End(xlUp).row + 1 

    Dim i As Integer, val As Integer 
    For Each ws In ActiveWorkbook.Worksheets 
    If ws.Name <> "Complete" Then 
     sLRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).row 
     For i = 2 To sLRow 
     val = CInt(ws.Cells(i, "A").Value) 
     If val <> 0 Then 
      cws.Range("A" & cLRow & ":D" & cLRow).Value = ws.Range("A" & i & ":D" & i).Value 
      cLRow = cLRow + 1 
     End If 
     Next 
    End If 
    Next 

End Sub

來源

2017-04-15 20:52:04 Amorpheuses

這是完美的工作。 – adams

這與我所希望的幾乎完全一致。但我一直在試圖做出2個小調整，我希望能夠做到。我已經玩了一段時間的代碼，但我無法得到它的工作。首先，我希望在任何時候任何QTY單元格被更改時自動運行宏。其次，如果數量更改回0，是否有辦法將該行從工作表「完成」中刪除？ – adams

Excel添加行，繼續

回答

相關問題