作者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)