我需要將整行復制到新工作表，如果工作表1上的某個列的值= x

我們當前正在使用共享excel工作簿來跟蹤小企業中的庫存。工作表「庫存清單」列出了每個產品的價格，供應商，成本等。如果需要訂購產品，我們還創建了一個標記爲「x」的列。因此，如果該列（E列）中有一個「x」，則整行將被複制並粘貼到新工作表中。在這張新表上，我希望他們由供應商組織，他們是庫存清單上的P欄。請讓我知道你是否可以幫忙。謝謝。我需要將整行復制到新工作表，如果工作表1上的某個列的值= x

來源

2014-03-31 user3481852

請加上細節上你已經嘗試過（包括相關的代碼）以及這些努力的結果以及結果不夠好的原因，因爲這將幫助我們爲您提供一個好的解決方案。（另外，搜索SO可能會讓很多人提出類似的問題:)） – user1759942

，並給你一個正確的方向：'Cells.find（「*」，[A1]，，，xlByRows，xlPrevious）。「行」將查找工作表中的行數。使用for循環來處理每一行，並使用：'cells（i，col）.value'，其中i是循環索引，col是其中包含x的列，用於檢查單元格的值。然後：'cells（i，col）entireRow.copy Destination：= Sheet.Range（x，y）'將複製/粘貼一行:) – user1759942

這是假設你從片與數據運行宏和已經存在一個名爲新錶板

Sub dural() 
Dim s1 As Worksheet, s2 As Worksheet 
Set s1 = ActiveSheet 
Set s2 = Sheets("New Sheet") 
Dim K As Long, N As Long, i As Long 

K = 1 
N = s1.Cells(Rows.Count, "E").End(xlUp).Row 
For i = 1 To N 
    With Cells(i, "E") 
     If .Value = "x" Then 
      .EntireRow.Copy s2.Cells(K, 1) 
      K = K + 1 
     End If 
    End With 
Next i 
End Sub

來源

2014-03-31 17:33:01

我需要將整行復制到新工作表，如果工作表1上的某個列的值= x

回答

相關問題