標題: 請問如何尋找所要的文字 (在同1個儲存格) 並在該列的儲存格旁填入文字? [打印本頁]

---

作者: agwhk    時間: 2011-5-28 18:02     標題: 請問如何尋找所要的文字 (在同1個儲存格) 並在該列的儲存格旁填入文字?

我有大量資料要處理如 (圖1) 所示，須要找紅色的文字如 (圖2) 所示並在該列的儲存格旁填入文字。
注 : 本身文字不是紅色的  謝謝!!

[attach]6384[/attach]

---

作者: GBKEE    時間: 2011-5-28 20:40

回復 1# agwhk

1. Sub Ex()
   
2.     Dim E As Range
   
3.     For Each E In [A1:A13]
   
4.         If InStr(E, "6mm") Then
   
5.              E.Offset(, 1) = "有貨"
   
6.         ElseIf InStr(E, "色") Then
   
7.              E.Offset(, 1) = "色片"
   
8.         End If
   
9.     Next
   
10. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)