EXCEL 关键字所在行的提取

显示全部楼层 · 2011-7-2 12:33:10

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

千问 · 2011-7-2 12:33:10

打开工程管理器，或同时按下ALT+F11插入模块粘贴代码后运行宏Sub 删除行()Y = 1 '表示A列，可自行修改。X1 = 1X2 = Cells(65536, 1).End(xlUp).RowNUM = 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
...

千问 · 2011-7-2 12:33:10

假设原数据在sheet1表内在同一工作簿下的“中华”表的A1输入公式=IF(ISERROR(MATCH("*中华*",sheet1!1:1,)),"",sheet1!A1)向右拉再向下拉即可美国的公式跟上面差不多，就用美国替换掉公式里的中华即可...

千问 · 2011-7-2 12:33:10

回答

千问 · 2011-7-2 12:33:10

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