標題: [發問] Find資料重複,怎麼寫才能完成修改工作 [打印本頁]

---

作者: HSIEN6001    時間: 2013-9-15 00:32     標題: Find資料重複,怎麼寫才能完成修改工作

請問 Find的資料有重複,怎麼寫才能完成修改工作
[attach]16075[/attach]

---

作者: GBKEE    時間: 2013-9-15 15:17

本帖最後由 GBKEE 於 2013-9-15 15:18 編輯

回復 1# HSIEN6001

1. Sub Ex()
   
2.     Dim Rng As Range, AR(), AB(), I As Integer
   
3.     AR = Array("台灣50", "中100", "FB上証")
   
4.     AB = Array("'0050", "'0051", "'006205")
   
5.     On Error Resume Next  '找不到的資料跳過
   
6.     With Sheets("Sheet1").Range("C:C")
   
7.         For I = 0 To UBound(AR)
   
8.             .Cells.Replace AR(I), "=ZZZ", xlWhole
   
9.             With .SpecialCells(xlCellTypeFormulas, xlErrors)
   
10.                 .Cells = AR(I)
    
11.                 .Cells.Offset(, -1) = AB(I)
    
12.             End With
    
13.         Next
    
14.     End With
    
15. End Sub

複製代碼

'SpecialCells(xlCellTypeFormulas, xlErrors)  如圖

[attach]16077[/attach]

---

作者: HSIEN6001    時間: 2013-9-15 17:02

回復 2# GBKEE


    感恩!
辛苦了,謝謝您!

---

作者: HSIEN6001    時間: 2013-9-15 17:15

回復 2# GBKEE


    問題已解決,,,小小請教

請問
"=ZZZ" ,是甚麼作用?

---

作者: GBKEE    時間: 2013-9-15 17:42

回復 4# HSIEN6001
請再詳看圖示

---

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