將數據複製到其他工作表並填充色

大家好（對於vba編程真的很陌生 - 今天開始）假設我想根據邏輯語句將數據從一個工作表複製到另一個工作表，並從上到下填充第二個工作表（即彼此之間沒有空行）我將如何開始這樣的事情。將數據複製到其他工作表並填充色

enter image description here

從上述上板之一，我想在片2下面的 - 因爲1,3,4行和7包含答案

enter image description here

但是，這是測試數據 - 真正的文件包含大約1000個條目

感謝您的幫助。

一個

來源

2013-01-15 Aiden Strydom

如果你確實需要VBA看到'AutoFilter'方法和'SpecialCells（xlCellTypeVisible）'財產 –

@ScottHoltzman框架 - 有另一種方式？請賜教....我真的很棒..... –

看起來像你自己想出了答案......或者正在努力獲得它，至少:) –

這是爲了回答

Sub test() 
    Application.ScreenUpdating = False 
    Sheets("Patient Database").Activate 
    Selection.AutoFilter 

    With ActiveSheet.Range("$A$2:$D$10") 
     .AutoFilter Field:=4, Criteria1:=">0" 
     .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy 
    End With 

    Sheets("Sheet2").Activate 



    Sheets("Sheet1").Activate 
    ActiveSheet.Range("A2").AutoFilter 
    Application.ScreenUpdating = True 
End Sub

來源

2013-01-15 15:21:11

將數據複製到其他工作表並填充色

回答

相關問題