基於單元格值複製行並將其粘貼到新工作表

-1

我一直在搜索與使用宏複製行並粘貼到Excel表中的新工作表相關的帖子，但我似乎無法找到正確的代碼符合我的要求。這裏有一個樣本數據開始： Sample Data Sheet 基於單元格值複製行並將其粘貼到新工作表

我有一個包含7列的數據表：

COLUMN A - Article # 
COLUMN B - Description 
COLUMN C - Lift 
COLUMN E - Comp OH 
COLUMN F - Requested 
COLUMN G - Shipped 
COLUMN H - SOS OH

我想創建一個宏，將根據F列的內容複製此片的 - 請求並將它們放在名爲REQUESTED的新工作表上。

最終的結果應該是這樣的：

Sample of Results

來源

2017-06-17 coteb

如果你在看所有的其他職位後開發的代碼不能正常工作，請它列入你的問題並告訴我們什麼是不正常的，因爲你認爲它會。然後我們可以幫助您解決問題。 – YowE3K

如果表中的值滿足條件，可能會出現[從表中複製行的Vba宏]（https://stackoverflow.com/questions/12177125/vba-macro-to-copy-row-from-table-if-value-在表中符合條件） – lebelinoz

只需使用一個過濾器，並複製可見單元格。如果您必須使用VBA，請在錄製宏時錄製一個宏。 –

這可以幫助你

這是工作表Sheet1粗略數據這是Reuested一級方程式這是Reay版式 th是被你的Ansver啓動後宏觀

您可以使用此宏來隱藏和取消隱藏

Sub hide() 
Sheets("Requested").Select 
    Dim r As Range, c As Range 
    Set r = Range("F2:F10") 
Application.ScreenUpdating = False 
For Each c In r 
    If Len(c.Text) = 0 Then 
     c.EntireRow.Hidden = True 
    Else 
     c.EntireRow.Hidden = False 
    End If 
Next c 
Application.ScreenUpdating = True 
End Sub 

Sub Unhide_All_Rows() 
Sheets("Requested").Select 

    On Error Resume Next 
    'in case the sheet is protected 
    ActiveSheet.Cells.EntireRow.Hidden = False 
End Sub

來源

2017-06-17 22:51:28

基於單元格值複製行並將其粘貼到新工作表

回答

相關問題