EXCEL根據條件篩選 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » EXCEL根據條件篩選

返回列表下一主題上一主題發帖

[發問] EXCEL根據條件篩選

　暱稱: 温奇
　頭銜: 議論者

中學生 Rank: 2

帖子: 104
主題: 5
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: Office2007
閱讀權限: 20
性別: 男
註冊時間: 2017-11-14
最後登錄: 2019-4-30

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2018-10-9 04:09 | 顯示全部帖子

回復 1# ffff56666

函數我想不到...
不過可以用簡單的巨集解決你的問題。

Private Sub CommandButton1_Click()
[G2:I1000] = ""
[L2:N1000] = ""
For Each aa In Range([A2], [A2].End(xlDown))
Select Case aa.Offset(, 3)
Case "Yes"
nextrow = Sheets("Sheet1").Cells(Rows.Count, 7).End(xlUp).Row + 1
form = 7
Case "No"
nextrow = Sheets("Sheet1").Cells(Rows.Count, 12).End(xlUp).Row + 1
form = 12
End Select
Cells(nextrow, form) = nextrow - 1
Cells(nextrow, form + 1) = aa.Offset(, 1)
Cells(nextrow, form + 2) = aa.Offset(, 2)
Next
End Sub

複製代碼

book.rar (22.99 KB)

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

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

返回列表下一主題上一主題