エクセルで複数の文字を選択

質問

エクセルで同じセル内で複数の文字を選択することはできますか？

複数のセルを選択することは、Ctrlを押しながらセルをクリックでできますよね。
同じセル内で複数の文字を選択するのはやはり無理でしょうか？

例えば「大阪と京都と奈良」という文字をセル内に入力していて「大阪」「奈良」の部分を選択したいんです。
セル内に入力した文字で複数箇所の色を変えたいんですけど、いちいち選択して色を変えるのが面倒で。一度に選択できないのかな、と思ったのですが・・・。

よろしくお願い致します。

回答No.2

xls88 · ベストアンサー

選択は出来ないと思います。

代替えでVBAは駄目ですか？
Dim myAry As Variant
Dim myTxt As String
Dim i As Long, j As Long

myAry = Array("大阪", "奈良")
myTxt = ActiveCell.value

ActiveCell.Font.ColorIndex = xlAutomatic
For i = LBound(myAry) To UBound(myAry)
j = InStr(myTxt, myAry(i))
With ActiveCell.Characters(j, Len(myAry(i))).Font
.ColorIndex = 3
End With
Next i

お礼

ご回答ありがとうございます。
ＶＢＡは難しそうで敬遠していたのですが、試してみようと思います。

回答No.3

tom04

こんばんは！
やはりVBAになってしまうと思います。

すでに回答は出ていますので、参考程度で・・・

A列の1行目からデータがあるとしてのコードです。
一例です。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, k As Long
Dim str As String
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To Len(Cells(i, 1))
str = Mid(Cells(i, 1), k, 2)
If str = "大阪" Or str = "奈良" Then
Cells(i, 1).Characters(Start:=k, Length:=2).Font.ColorIndex = 3
End If
Next k
Next i
Application.ScreenUpdating = True
End Sub 'この行まで

※　各セルを一文字ずつ舐めるように2文字ずつ検索して、「大阪」「奈良」であればフォント色を「赤」にしています。

参考になれば良いのですが・・・m（＿ ＿）m

お礼

ご回答ありがとうございます。
やはりＶＢＡが使えたほうがよさそうですね。
丁寧に教えて頂いてありがとうございます。
勉強して色々試してみます。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

Excelの基本はセル単位なのでできないと思います。
Wordにコピペ、編集、Excelにコピペ ならなんとか、、、。

お礼

すばやい回答ありがとうございます。
やっぱり無理ですよね。地道にがんばってみます。