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

Question

各位 VBA 高手

我想寫一個簡單的 VBA 程式

如果有數筆在「工作表1」資料欄位為

姓名 起始日 結束日 天數

小白 1070101 1070109 8

小黑 1070101 1070103 3

小綠 1070101 1070105 5

小黃 1070101 1070102 2

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

Answer 1

最佳解答

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

• 丁元

  Lv 5

  2 年前檢舉

  謝謝 John Orz
  它終於能跑了，今天才又回來看到您的更新，大感謝。