基础练习：根据关键字分列(欢迎广大会员抢分)

楼主 wjc2090742	题目：如下图，根据指定的关键字进行分列，源数据在A列，分列效果在B、C列。方法不限，但是要求批量操作，技巧请给出关键步骤，允许使用辅助列。题目较基础，欢迎广大会员参与。答案正确会有加分，2010-11-1日开帖。如何按关键字分列？.rar
2楼 rongjun	=LEFT(A1,FIND("系",A1)) =MID(A1,FIND("系",A1)+1,99) 如何按关键字分列？.rar
3楼 wjh619993018	来个技巧的，操作步骤如下选中A列，按下“Ctrl+H ”组合键，弹出“替换”对话框，在“查找内容”文本框中输入“系”，在“替换内容”文本框中输入“系@”，点击“全部替换”按钮，再点击“确定”按钮，再点击“关闭”按钮，关闭“替换”对话框。点击“数据”选项卡，再点击“数据工具”组的“分列”命令按钮，弹出“文本分列向导”对话框，点击“下一步”，在“文本分列向导-步骤之2”对话框“分隔符号”区域，勾选“ 其它”左侧的复选框，在其右侧的文本框中输入“@”，点击“完成”按钮，关闭“文本分列向导”对话框
4楼 liuguansky	Sub justtest() Dim i& For i = 1 To Cells(Rows.Count, 1).End(3).Row Cells(i, 2).Resize(1, 2) = Split(Replace(Cells(i, 1).Value, "系", "系" & vbTab), vbTab) Next End Sub 如何按关键字分列？.rar
5楼 wise	方法都给出来了！
6楼 wise	Sub test() Dim rng As Range For Each rng In Sheet1.UsedRange.CurrentRegion rng.Offset(0, 1) = Left$(rng, InStr(1, rng, "系")) rng.Offset(0, 2) = Right$(rng, Len(rng) - InStr(1, rng, "系")) Next End Sub
7楼 bbwsj
8楼 wise	基础操作：先把“系”替换成“系-”，然后根据“-”进行分列。
9楼正派小高	能力有限所以技巧和步骤的解释不够详尽取巧的关键字分列？.rar
10楼水星钓鱼	用分列和自定义单元格格式
11楼君柳	B1=SUBSTITUTE(A1,C1,) C1=RIGHT(A1,3)
12楼君柳
13楼君柳
14楼 su11wei18	=TRIM(MID(REPLACE($A1,FIND("系",$A1)+1,,REPT(" ",100)),(COLUMN(A:A)-1)*100+1,99))
15楼 chlypy2008	=MID(A1,1,FIND("一",A1,1)-1) =RIGHT(A1,3)
16楼 chlypy2008	=LEFT(A1,LEN(A1)-3) =RIGHT(A1,3)
17楼 chlypy2008	这样行不？分列.gif
18楼 worldggg	看看瞧瞧~~~~~~~~~~~~~~~~
19楼 sky-trek	用right left len三个基本函数如何按关键字分列？.zip
20楼 shun2233	分别取数: =LEFT(A1,FIND("系",A1)) =RIGHT(A1,LEN(A1)-FIND("系",A1))
21楼海洋之星	方法1:函数法 =LEFT(A17,FIND("一",A17)-1) =RIGHT(A17,LEN(A2)-LEN(B17)) 见附件: 方法1和方法2.zip 方法3:分列法
22楼 mn860429
23楼金陵白玉床	分列功能啊，难道还有其它方法？或者写VBA代码在所有“一”前面加空格或特殊字符。
24楼 sjz76meizi	第一种方法（基础操作分列）：选中A列→-查找→一年级→替换为→“空格+一年级” 选中A列→-数据→-分列→-分隔符号→-其他（空格）→-完成第二种方法（函数公式）：B1=LEFT(A1,LEN(A1)-3) C1=RIGHT(A1,3)
25楼 piny	方法一如果C列一律為三個字 B1=SUBSTITUTE(A1,C1,) C1=RIGHT(A1,3) 方法二如果系名不會出現第二個「系」 B1=LEFT(A1,FIND("系",A1)) C1=SUBSTITUTE(A1,B1,) 公式下拉
26楼君柳	还是07版好
27楼庭院幽幽	郁闷，看不见，想凑巧学习。
28楼 zm0115	公式可不可以？ =TRIM(MID(SUBSTITUTE($A1,"一年级",REPT(" ",200)&"一年级"),(COLUMN(A1)-1)*200+1,200)) 如何按关键字分列？.rar
29楼 ggsmart	1、选中A列，查找替换：查找“系”，替换为“系-” 2、数据——分列——按符号分列，符号设为“-”
30楼 zhanghi	1：c1=RIGHT(A1,3) b1=SUBSTITUTE(A1,C1,) 2: b1=LEFT(A1,FIND("一",A1)-1) c1=SUBSTITUTE(A1,b1,) 3: b1=MID(A1,1,FIND("一",A1)-1) c1=SUBSTITUTE(A1,b1,)
31楼 gouweicao78	1、CTRL+H：查找“系”替换为“系 ” 2、数据→分列→分隔符号选空格→完成
32楼無心	先在B列输入=SUBSTITUTE(A1,"系","系@")复制-选择性黏贴-数值分列-分隔符号-“@”-确定
33楼無心	纯函数： B1=LEFT(A1,FIND("系",A1)) C1=RIGHT(A1,LEN(A1)-C1) 选中B1:C1下拉
34楼 biaotiger1	1、查找“系”替换为“系 ”（“系”+空格）。以空格分列 2、 B1输入 =LEFT(A1,FIND("系",A1)) C1输入 =SUBSTITUTE(A1,B8,) 选中B1:C1单元格区域，下拉。
35楼 wjc2090742	时间截止，开帖准备总结评分。
36楼 wjc2090742	本题答案较丰富，多占一层，以备不时之需。