Excelの数式、だから私はこのようなものだ、それ

Question

以下の各列にタイトルを追加する（列Aのすべてを、別々の行）：

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

タイトル02

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行を達成する方法をば完全と彼らは...各タイトルの下に同じAMOUTではありません

ありがとうございました！**

Answer 1

• は式=IF(MID(A2, 1,5)="Title", A2, B1)
• がダウンして、あなたのデータの最後の行にその式を記入入れ、セルに数式B2=A1
• を置きます。
• セル内にを入れてください。=IF(MID(A1, 1,5)="Title", A1, B1 & " - " & A1)
• 補充してください。

ここで、C列に必要なものがあります。特別な値をコピーして貼り付けて、数式を取り除くことができます。

Answer 2

あなたが他の細胞への細胞の「プッシュ」自体にエントリを作成することはできません。他のセルは、あなたのタイトルを参照する式でなければなりません。だから、あなたは

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

などのようなものを持っています。セルB1の中へ

Answer 3

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