返回列表 上一主題 發帖

[發問] EXCEL根據條件篩選

回復 1# ffff56666


    函數我想不到...
不過可以用簡單的巨集解決你的問題。
  1. Private Sub CommandButton1_Click()
  2. [G2:I1000] = ""
  3. [L2:N1000] = ""
  4. For Each aa In Range([A2], [A2].End(xlDown))
  5. Select Case aa.Offset(, 3)
  6.     Case "Yes"
  7.         nextrow = Sheets("Sheet1").Cells(Rows.Count, 7).End(xlUp).Row + 1
  8.         form = 7
  9.     Case "No"
  10.         nextrow = Sheets("Sheet1").Cells(Rows.Count, 12).End(xlUp).Row + 1
  11.         form = 12
  12. End Select
  13. Cells(nextrow, form) = nextrow - 1
  14. Cells(nextrow, form + 1) = aa.Offset(, 1)
  15. Cells(nextrow, form + 2) = aa.Offset(, 2)
  16. Next
  17. End Sub
複製代碼

book.rar (22.99 KB)

一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題