1

所以我得到了这样的东西（全部在A列，单独的行）：

标题01

atext atext atext atext atext

btext btext btext btext btext

ctext ctext ctext ctext ctext

标题02

atext atext atext atext atext

btext btext btext btext btext

ctext ctext ctext ctext ctext

标题03

atext atext atext atext atext

btext btext btext btext btext

ctext ctext ctext ctext ctext

我需要解决方案来改变它：

标题01

Title01 - atext atext atext atext atext

Title01 - btext btext btext btext btext

Title01 - ctext ctext ctext ctext ctext

标题02

Title02 - atext atext atext atext atext

Title02 - btext btext btext btext btext

Title02 - ctext ctext ctext ctext ctext

标题03

Title03 - atext atext atext atext atext

Title03 - btext btext btext btext btext

Title03 - ctext ctext ctext ctext ctext

**基本上 - 为每一列添加前缀（标题）直到下一个标题的一行......有没有什么想法我怎么能完成这个总共有大约 3000 行并且它们在每个标题下的数量不同......

谢谢！**

4

3 回答 3

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
于 2012-04-20T21:34:53.607 回答
2
  • 在单元格B1中输入公式=A1
  • 在单元格B2中输入公式=IF(MID(A2, 1,5)="Title", A2, B1)
  • 将该公式填充到数据的最后一行。
  • 在单元格C1中输入公式=IF(MID(A1, 1,5)="Title", A1, B1 & " - " & A1)
  • 填写下来。

现在您在 C 列中得到了您想要的内容。您可以复制，然后粘贴特殊 > 值以摆脱公式。

于 2012-04-20T21:47:21.737 回答
0

您不能在一个单元格中创建一个条目，将其自身“推”到其他单元格中。其他单元格必须是引用您的标题的公式。所以你会有类似的东西

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

等等。

于 2012-04-20T20:14:14.430 回答