[[20140920172810]]　『文字の制御』（超初心者）　ページの最後に飛ぶ

『文字の制御』（超初心者）

初めまして
文字の制御についてお伺いします
RIGHT　とかLEFTとかは出てくるのですが
下記のような場合どのようにすれば良いのでしょうか
お手を煩わして申し訳ございませんが
ご教示お願いします

下記の文字列が有ります
2014年 09月 20日(土)　地域鳥栖 3日目 12T 　　 ≪複数回≫

変更後は下記のようにしたいです
鳥栖12T

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

=RIGHT(A1,LEN(A1)-20)
=LEFT(A1,LEN(A1)-7)
上記関数で頭とお尻は削れたのですが
真ん中の文字の消し方と二つの関数の合わせ方が解りません

 この文字列のルールは何でしょうか。

 **年 **月 **日(*) 地域 ** *日目 **
 の文字の部分は固定でしょうか。

 スペースの区切りは必ずありますか？
 20 とか 7 はデータごとで変化しないのですか？
（Mook） 2014/09/20(土) 18:17

MooKさま

アクセス有難う御座います
スペースも文字数も変化しません
すべて　同じ文字数です
区切り等すべて同じです

よろしくお願いいたします

（超初心者） 2014/09/20(土) 18:34

 **年 **月 **日(*) 地域 ** *日目 **
 の文字の部分は固定でしょうか。

その通りでございます
（超初心者） 2014/09/20(土) 18:43

 地域の名前も固定であれば、Left Right でもできますが、Mid という関数があります。
 =Mid(A1,18,2) & RIGHT(A1,3)
 は望む結果になるのでしょうか。

 それからニックネームは、質問者が識別ができる名前にしてください。
 同名の方は過去多数いるので。
（Mook） 2014/09/20(土) 18:47

Mook様
ご回答有難う御座います
教えていただいたのだと
上手に行きませんでした

もう少しお付き合いいただければ助かります

自動記録で下記のマクロを作りました
要約することはできるのでしょうか？

Sub Macro2()
'
' Macro2 Macro
'

    Range("R1").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[-17],20)"
    Range("R1").Select
    Selection.Copy
    Range("R1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R1").Select
    Application.CutCopyMode = False
      Range("X1").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-6],11)"
    Range("X1").Select
    Selection.Copy
    Range("R1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X1").Select
    Application.CutCopyMode = False
    Selection.ClearContents

     Range("X1").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-6],4)"
    Range("Y1").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[-7],3)"
    Range("Z1").Select
    ActiveCell.FormulaR1C1 = "=+RC[-2]&RC[-1]"
    Range("Z1").Select
    Selection.Copy
    Range("R1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("X1:AA1").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub

ニックネームは気を付けます
（パンダメダカ好き） 2014/09/20(土) 19:37

 あら後の ≪複数回≫ もデータだったでしょうか。
 こんな数式でもできそうですけれど、
 =MID(A1,22,2)&MID(A1,29,3)

 マクロならこんな方法も
 Sub Sample()
    Dim 単語
    単語 = Split(Range("A1").Value, " ")  '// スペースで区切る
    Range("R1").Value = 単語(4) & 単語(6)   '// 5 番目と7番目の単語を表示：最初は0
 End Sub
（Mook） 2014/09/20(土) 20:11

=MID(A1,22,3) & RIGHT(A1,3)
でいいのでは？
（ELEMENTAL） 2014/09/20(土) 20:14

Mookさん

早速のご回答有難う御座います

＞あら後の ≪複数回≫ もデータだったでしょうか
その通りです

色々有難う御座いました

ELEMENTALさん

有難う御座いました
（パンダメダカ好き） 2014/09/20(土) 20:31

 地域名の文字数を考慮して・・・

 =REPLACE(LEFT(A1,FIND(" ",A1,22)),1,21,"")&RIGHT(A1,3)

 ※ケツは3文字固定
　
（GobGob） 2014/09/22(月) 12:17

コメント返信：

[ 一覧(最新更新順) ]

[[20140920172810]] 『文字の制御』（超初心者） ページの最後に飛ぶ

[[20140920172810]]　『文字の制御』（超初心者）　ページの最後に飛ぶ