2012-04-20 49 views
1

所以我有这样的事情每一行(全部在A列,单独行):Excel公式,将标题下方

Title01

atext atext atext atext atext

btext btext btext btext btext

CTEXT CTEXT CTEXT CTEXT CTEXT

title02

atext atext atext atext atext

btext btext btext btext btext

CTEXT CTEXT CTEXT CTEXT CTEXT

title03

atext atext atext atext atext

btext btext btext btext btext

ctext ctext ctext ctext CTEXT

我需要的解决方案,以改变它像这样:

Title01

Title01 - atext atext atext atext atext

Title01 - btext btext btext btext btext

Title01 - ctext ctext ctext ctext ctext

Title02

Title02 - atext atext atext atext atext

Title02 - btext btext btext btext btext

Title02 - CTEXT CTEXT CTEXT CTEXT CTEXT

Title03

Title03 - atext atext atext atext atext

Title03 - btext btext btext btext btext

Title03 - CTEXT CTEXT CTEXT CTEXT CTEXT

** Basicaly - 添加(题目)前缀,以每列一排,直到下一个标题... 是否有任何想法如何,我可以做到这一点具有约3000行完全以和他们不是每个标题下的相同大写金额...

谢谢!**

+0

总是一个标题行后面跟着3行文本? – 2012-04-20 20:09:53

+0

对不起,忘了提及......总是有一个标题行,从不同的行数开始直到下一个标题... – enflam3 2012-04-20 20:23:09

+0

那么,如何从下面的文本中告诉标题?你会使用什么规则? – 2012-04-20 20:30:04

回答

2
  • 进入细胞B1把公式=A1
  • 进入细胞B2把公式=IF(MID(A2, 1,5)="Title", A2, B1)
  • 下填补这一公式数据的最后一行。
  • 细胞C1把公式=IF(MID(A1, 1,5)="Title", A1, B1 & " - " & A1)
  • 填写。

现在你有你想要的C列。你可以复制,然后粘贴特殊>值来摆脱公式。

+0

也工作解决方案谢谢你! – enflam3 2012-04-20 22:06:12

+0

+ 1为配方解决方案! – 2012-04-21 05:47:34

0

你不能在一个单元格“推”本身为其他细胞的条目。其他单元格必须是引用回标题的公式。所以你会有类似

A 
1 Title01 
2 =A1&"atext atext atext atext atext" 
3 =A1&"btext btext btext btext btext" 

等等下线。

+0

我忘了提及,我有大约3000行totaly,他们是不一样在每个标题下... – enflam3 2012-04-20 20:21:27

+0

3000公式,然后。你能*做的是将标题,公式和文本全部放在单独的列中,并使公式足够聪明以便(搜索标题)和文本(如果存在相应的文本),否则为空。 – mjfgates 2012-04-20 20:28:27

2
Sub Tester()  
    Dim c as Range, ttl as string 

    for each c in selection.cells 
     if lcase(c.value) like "*titletext*.txt" then 
      ttl = c.value 
     else 
      if len(c.value)>0 and len(ttl)>0 then 
       c.value = ttl & " - " & c.value 
      end if 
     end if 
    next c 
End sub 
+0

+ 1 :)尼斯和简单:) – 2012-04-20 21:36:44

+0

该死的好!我正在尝试着色,计数和甚至修改一堆其他代码,但是这很简单,而且很实用!谢谢!!! – enflam3 2012-04-20 21:47:12