EXCEL VBA 語法抓工作表 D 欄大於等於5的資料到第二個工作表應該怎樣寫?

Question

各位 VBA 高手

我想寫一個簡單的 VBA 程式
如果有數筆在「工作表1」資料欄位為
姓名    起始日    結束日    天數
小白 1070101 1070109          8
小黑 1070101 1070103          3
小綠 1070101 1070105          5
小黃 1070101 1070102          2

我想要把天數 >=5 抓到「工作表2」依序貼上，應該怎樣寫 VBA 語法? 謝謝

匿名使用者 · Accepted Answer

Public Sub CopyByCriteria()
    Dim rng As Range
    Dim rngData As Range
    Dim freeCell As Integer
    
    Sheets("Sheet1").Select
    Set rngData = Range("a2:d5")
    
    For Each rng In rngData.Rows
        If rng.Cells(1, 4) >= 5 Then
            rng.Select
            Selection.Copy
            Sheets("Sheet2").Select
            ' find the first available blank cell
            freeCell = Range("A1:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
            Range("a" & freeCell).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
            Sheets("Sheet1").Select
        End If
    Next
End Sub

EXCEL VBA 語法抓工作表 D 欄大於等於5的資料到第二個工作表應該怎樣寫?

1 個解答