作者foreverkn (Last Dance)
看板Visual_Basic
标题[VBA ] 请问关於筛选贴上的问题
时间Sat Sep 29 08:47:00 2007
我有两个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