EXCEL如何遍历一张工作表VBA

Question

EXCEL如何遍历一张工作表,查出包含字符串的内容,写入另外一张表?用VBA

例如一个简单的例子,sheet1里面有如下:
A列 B列
一1
一2
一3
二1
二2
二%
二6
需要得到结果写进sheet2,内容是:
A列 B列
一1
一2
一3
需要得到结果写进sheet3,内容是:
二1
二2
二%
二6

因为EXCEL有时候会新增内容,又不想手动用公式去得到,VBA不太熟.
.

A列有内容,B列无内容,上面误导你们了.
懂行的人,一看就知道我是什么意思了.
意思就是把相同品牌选出来就行,型号不一样也没有关系.
这里面就有品牌"一","二",型号由后面的决定,这个不管.

再例如:
A1
三星S2-4
三星G-6
青岛啤酒1升装
青岛啤酒0.5升装

明白了吗?

二楼的已经在接近我要的答案了,但是,觉得还需要改进.你没有完全达到我的意思.
Sheets("sheet1").Cells(i, 1) = "一" 这个表示是的遍历A:A,但是,A:A里面的内容是 "一1"等等,并不只是"一".

sheet2!A1的内容,得到的大概过程可能是:
当for...next中i=1时,从sheet1!A1里面内容,看是否包括"一",如果包含,就复制这个内容到sheet2!A1里面

懂VBA的,帮我写一下吧,我不太懂VBA写法,我会追分的.

Answer 1

已验证通过 !!!!!修改过了
Sub 写入()
Dim j, k
j = 1
k = 1
For i = 1 To 30
If mid(Sheets("sheet1").Cells(i, 1),1,2) = "三星" Then
Sheets("sheet2").Cells(j, 1) = Sheets("sheet1").Cells(i, 1)
'Sheets("sheet2").Cells(j, 2) = Sheets("sheet1").Cells(i, 2)
j = j + 1
ElseIf mid(Sheets("sheet1").Cells(i, 1),1,4) = "青岛啤酒" Then
Sheets("sheet3").Cells(k, 1) = Sheets("sheet1").Cells(i, 1)
'Sheets("sheet3").Cells(k, 2) = Sheets("sheet1").Cells(i, 2)
k = k + 1
End If
Next
End Sub本回答被提问者采纳

Answer 2

用筛选然后复制

Answer 3

楼主，我觉得你应该还有一个问题，你是如何判断哪些数据是应该放表2，哪些数据应该放表3的呢？