Excle 特定の文字から右の文字列を隣のセルへ移動させたい

質問

エクセル関数について質問させてください。
例えば以下の様なデータがあります。

　　　　　　　　A　　　　　　　　　　　　　　B
１　　東京都台東区　１０１　

これを全角ブランクから右の文字列すべてをB１セルに移動する方法をご教授下さい。
例）
　　　　　　　　A　　　　　　　　　　　　　　B
１　　東京都台東区　　　　　　　　　　　　１０１　

よろしくお願いします。

回答No.1

mu2011 · ベストアンサー

一例です。
=TRIM(MID(A1,FIND("　",A1),LEN(A1)))

又、データ→区切り位置を利用して隣列に移動する事が可能ですが如何でしょうか。

お礼

思ったとおりの事が出来ました！
ありがとうございます。

回答No.3

noname#140971

エクセル関数では、チト、荷が重いかもですね。

=RIGHT(A1, ABS(LEN(A1 & "")-FIND("　",A1 & "　")))

で、数字は右へ移せます。
しかし、数字の削除は出来ません。

---------------------------------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Dim strText As String

　　strText = Target.Value
　　If InStr(1, strText, "　", vbTextCompare) Then
　　　　Target.Value = CutStr(strText, "　", 1)
　　　　Cells(Target.Row, Target.Column + 1) = "'" & CutStr(strText, "　", 2)
　　End If
End Sub

---------------------------------------------------------------------------------

　　　　Cells(Target.Row, Target.Column + 1) =　CutStr(strText, "　", 2)

ですと、新しい列は数字になります。

例えば、こういうVBAコードを書けばダブルクリックすると文字列が分割されます。
もちろん、標準モジュールに CutStr関数を登録していないと上記のコードは実行できません。

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　 ByVal Separator As String, _
　　　　　　　　　　　 ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function

お礼

ありがとうございます。
私にVBAはハードルが高いですが、試して見ます。

回答No.2

gyouda1114

ご参考
区切り位置で楽々データ分割
http://kokoro.kir.jp/excel/delimitation-position.html

お礼

エクセルの機能にあったんですね…。
目からうろこです、ありがとうございました。