返回列表 上一主題 發帖

[發問] 關於此狀況有比VLOOKUP更好的方法嗎?

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
1# 跳轉到 »
發表於 2015-7-30 20:41 | 顯示全部帖子
本帖最後由 koo 於 2015-7-30 20:43 編輯

要不要考慮用VBA先把素葷分離到其他工作表
  1. Sub test()
  2. k = 1
  3. j = 1
  4. For Each c In Range("A1:B300")  ''範圍自行修改
  5. i = InStr(1, c.Value, "素")
  6. If i > 0 Then
  7.     Sheets(2).Cells(k, 1) = c.Value
  8.     k = k + 1
  9. Else
  10.     Sheets(3).Cells(j, 1) = c.Value
  11.     j = j + 1
  12. End If
  13. Next c
  14. End Sub
複製代碼
另>>幾千筆用下拉式清單似乎有點太長吧!!!

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題