作者Marty (DNA探針)
看板Visual_Basic
標題Re: [VBA ] 請問關於篩選貼上的問題
時間Sat Sep 29 17:42:16 2007
※ 引述《foreverkn (Last Dance)》之銘言：
: 我有兩個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)
^^^^Cells ^^^^Cells
: End If
: Next
: 結果執行結果沒反應有問題
: 請問我這樣的程式碼哪裡有問題呢？
: 感謝大家
下列程式碼供你參考~
'定義標的名稱
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"))
'開始貼上搜尋結果
i=2
do until worksheets("A").cells(i,2) = ""
If Worksheets("A").Cells(i, 2) = Target Then
Worksheets("B").Cells(Data_N + 1, 1) = Worksheets("A").Cells(i, 1)
Data_N = Application.WorksheetFunction.CountA(Sheets("B").Range("A:A"))
End If
i=i+1
loop
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.84.57.2
※ 編輯: Marty 來自: 219.84.57.2 (09/29 17:43)