返回列表 上一主題 發帖

[發問] EXCEL根據條件篩選

ffff56666

帖子
9 
主題
2 
精華
0 
積分
61 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2018-10-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-10-8 23:59 | 只看該作者

[發問] EXCEL根據條件篩選

各位大大, 有工作的員工能用函數按英文職位名稱排序嗎?
求各位指教，謝謝！

book.zip (7.29 KB)

收藏 分享

faye59
　暱稱: 温奇
　頭銜: 議論者

贊助會員Rank: 2

帖子
75 
主題
5 
精華
0 
積分
81 
點名
44  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
30 
性別
男 
註冊時間
2017-11-14 
最後登錄
2018-10-16 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-10-9 04:09 | 只看該作者
回復 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

hcm19522

帖子
696 
主題
0 
精華
0 
積分
703 
點名
1  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2018-10-19 

熱烈參與勳章
3#
發表於 2018-10-9 09:58 | 只看該作者
(先)H2:I2{=IFERROR(INDEX(B:B,RIGHT(SMALL(IF($D$2:$D$9="Yes",CODE($B$2:$B$9)/1%+ROW(B$2:B$9)),ROW(A1)),2)),"")

G2=IF(H2="","",COUNTIF(H$2:H2,"<>"))
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集5000篇 EXCEL函數

TOP

ffff56666

帖子
9 
主題
2 
精華
0 
積分
61 
點名
0  
作業系統
Win 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2013-8-25 
最後登錄
2018-10-10 
4#
發表於 2018-10-10 21:45 | 只看該作者
謝謝各位解答, 問題解決了

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題