[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『文字の制御』(超初心者)
初めまして
文字の制御についてお伺いします
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
アクセス有難う御座います
スペースも文字数も変化しません
すべて 同じ文字数です
区切り等すべて同じです
よろしくお願いいたします
(超初心者) 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
もう少しお付き合いいただければ助かります
自動記録で下記のマクロを作りました
要約することはできるのでしょうか?
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
早速のご回答有難う御座います
>あら後の ≪複数回≫ もデータだったでしょうか
その通りです
色々有難う御座いました
ELEMENTALさん
有難う御座いました
(パンダメダカ好き) 2014/09/20(土) 20:31
地域名の文字数を考慮して・・・
=REPLACE(LEFT(A1,FIND(" ",A1,22)),1,21,"")&RIGHT(A1,3)
※ケツは3文字固定 (GobGob) 2014/09/22(月) 12:17
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.