エクセルVBAで、セルの文末を置換

質問

エクセルの置換で、セルの文末を
別の文字列に置き換えるにはどういた記述になるのでしょうか？

回答No.3

Wendy02 · ベストアンサー

こんばんは。

aaaaa
　↓
aaaaa&

それは、置換ではなくて、つけたしするということですね。
'標準モジュールが良いです。

Sub Test2()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("A1", Range("A65536").End(xlUp))
　c.Value = c.Value & "&"
Next c
Application.ScreenUpdating = True
End Sub

お礼

すごい！
出来ました。

ありがとうございます。

回答No.4

sakura9113

あ、ＶＢＡで、と書いてあるのを見逃してました。
失礼しました。
＃３さんのやり方に同じく、です＾＾

回答No.2

sakura9113

＞それぞれの文末に”＆”をつけたい場合

もしかしてＶＢＡとかではなく、セルの書式設定のことかな？

１、列を選択しておいて、右クリックで【セルの書式設定】をクリック
２、表示形式タブを選んで、分類のところで【ユーザー定義】を選択
３、種類とかいてあるテキストボックスに【@"&"】と指定する

こうすれば、aaaaaがaaaaa&と表示されますよ。

回答No.1

Wendy02

こんばんは。

いくつかの方法があります。
どれが、一般的ともいえません。1番が、一番、VBAらしいけれども、分かりにくいですね。

Sub Test1()
Dim myTxt As String
'文字が２文字以上の場合
　If Len(ActiveCell.Value) > 1 Then
　　myTxt = ActiveCell.Value
　Else
　　Exit Sub
　End If
'1
　Mid(myTxt, Len(myTxt), 1) = "g"
　MsgBox myTxt

'2
　MsgBox Replace(myTxt, Right(myTxt, 1), "g")

'3
　MsgBox Mid(myTxt, 1, Len(myTxt) - 1) & "g"
End Sub

p.s. 前回のご質問の内容は、一応、締められていましたが、回答として書いておきます。(qa3870660)

>A列にひとつだけ
>A列に複数とで、
別ける

If WorksheetFunction.Count(Columns(1))= 1 Then
　'ひとつだけ
ElseIf WorksheetFunction.Count(Columns(1))> 1 Then
　 '二つ以上
End If

補足

例えば、
aaaaa
bbbbb
ccccc

上記のようにセルが並んでいたとして、
それぞれの文末に”＆”をつけたい場合。

aaaaa&
bbbbb&
ccccc&

このように置換したいのですが、
方法はあるのでしょうか？