Question

EXCEL 关键字所在行的提取

我有一个很大的EXCEL工作表，想要把含有“中华”或“美国”字样的行都提出出来放到新的工作表里，按中华或美国提出来的工作表名字分别命名为中华、美国。
我要VBA的~ 谢谢了！ 因为我要它把提取出来的放到新的工作表里面。

Answer 1

打开工程管理器，或同时按下ALT+F11
插入模块
粘贴代码后运行宏

Sub 删除行()
Y = 1 '表示A列，可自行修改。
X1 = 1
X2 = Cells(65536, 1).End(xlUp).Row
NUM = 0
For X = X1 To X2
Do While Mid(Cells(X, Y), 1, 2) = "无效" And X + NUM <= X2 '无效是要删除的字符行
Rows(X).Select
Selection.Delete Shift:=xlUp
NUM = NUM + 1
Loop
Next
For X = X1 To X2
Do While Cells(X, Y) = "" And X + NUM <= X2
Rows(X).Select
Selection.Delete Shift:=xlUp
NUM = NUM + 1
Loop
Next
End Sub
另外,团IDC网上有许多产品团购,便宜有口碑

Answer 2

假设原数据在sheet1表内
在同一工作簿下的“中华”表的A1输入公式
=IF(ISERROR(MATCH("*中华*",sheet1!1:1,)),"",sheet1!A1)
向右拉再向下拉即可

美国的公式跟上面差不多，就用 美国 替换掉公式里的 中华 即可

Answer 3

在SHEET2的A1中输入:=if(sheet1A1="中国","中国",""),就可以得到中国的,其它如法泡制