我有兩個Sheets名稱分別是A和B
現在我在B中的儲存格A1打上花生
然後A中的資料如下
A B C . . . .
項目 名稱
1 花生
2 牛奶
3 草莓
4 巧克力
5 花生
6 芋頭
. .
. .
. .
我希望在A中的資料裡搜尋名稱符合花生的將其項目依序貼到B中
我的程式碼如下
'定義標的名稱
Dim Target As String, Data_N As Integer
Target = Worksheets("B").Range("A1")
'統計Sheet("B")有資料的行數,這裡使用之前版友提到的方法
Data_N = Application.WorksheetFunction.CountA(Sheets("B").Range("A:A"))
'開始貼上搜尋結果
For I = 5 To 5000
If Worksheets("A").Cells(I, 2) = Target Then
Worksheets("B").Cell(Data_N + 1, 1) = Worksheets("A").Cell(I, 1)
End If
Next
結果執行結果沒反應有問題
請問我這樣的程式碼哪裡有問題呢？
感謝大家
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 122.124.28.97