![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
No.3ベストアンサー
- 回答日時:
こんにちは。
#1さんのSPLITを使った方法がベストかと思います。
別の方法では
Sub TEST()
Dim 苗字 As String
苗字 = Left(Range("A1").Value, InStr(Range("A1").Value, " ") - 1)
MsgBox (苗字)
End Sub
LEFTを使って苗字を取り出します。
INSTRで全角スペースが何文字かを調べスペースを含まないようにする為、-1して苗字の終端を調べています。
早速のご回答ありがとうございます。
LEFTで色々試行錯誤していたのでこちらが入り易かったです。
#1さんのSplitも勉強してみます。
また、宜しくお願いします。
No.4
- 回答日時:
#3です。
#2さんの方法はちょっと面倒かと思いますが・・・。
置換するより
=LEFT(A1,FIND(" ",A1)-1)
の方が楽かと思います。
やっていることはFINDかINSTRの違いだけです。
ありがとうございます。
そうですね。確かに=LEFT(A1,FIND(" ",A1)-1)の方が簡単だと思います。
ワークシート上でのこのやり方は、ネットで検索出来ていました。
No.1
- 回答日時:
NameArray = Split(Range("A1").Value, " ")
MsgBox "姓:" & NameArray(0) & vbCrLf & "名:" & NameArray(1)
または
tmp = InStr(1, Range("A1").Value, " ")
MsgBox "姓:" & Left(Range("A1").Value, tmp - 1) & vbCrLf & _
"名:" & Mid(Range("A1").Value, tmp + 1)
こんな感じでどうですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel 文字を抽出したい 4 2022/06/22 11:43
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- その他(Microsoft Office) Outlookメール 連絡先の検索について 〈 ご説明 〉 Windows PC の Outlook 1 2022/09/23 14:43
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/02/10 17:07
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/12 09:24
- Excel(エクセル) Excelマクロの差分抽出のコードを教えていただきたいです。 2 2023/03/14 11:40
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Excel(エクセル) Excelの1つのセルにそれぞれ文字+数字が入力されていて、 数字のみ抽出して合計したいです。(合計 4 2023/03/16 23:44
- その他(法律) 【 ※ 500文字の長文】 「訴える」と脅されました。 つい先日、Twitterの音声ツール「スペー 3 2022/07/12 08:02
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
6
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
エクセルの表示形式を保ったまま、セルに値を代入するには?
Visual Basic(VBA)
-
9
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
10
UserForm1.Showでエラーになります。
工学
-
11
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
12
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
13
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
14
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
15
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
EXCELでチェックボックスに自動的にチェックを入れる方法
Excel(エクセル)
-
18
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
スペースで区切られた氏名から...
-
VBA 置換文字がみつからない時
-
各項目がダブルクォーテーショ...
-
csvデータ ダブルクォーテ...
-
csvデータのダブルクォーテーシ...
-
正規表現で、特定の文字列を含...
-
ハングルを日本語に置換
-
EXCEL VBA でCTRL+Fのダイア...
-
C言語でテキストファイルの内容...
-
PowerShellでテキストの空白行...
-
EXCEL警告「置換対象のデータが...
-
置換した文字色の変更
-
正規表現 特定の文字列を含む行...
-
正規表現でテキストの中身を置...
-
cshの文字列置換
-
TeraPadエディターの操作方法に...
-
秀丸で、ダブルクォーテーショ...
-
エクセル VBA 複数条件一...
-
EXCELマクロを用いてグラフの系...
-
Eclipse 改行後のタブ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
スペースで区切られた氏名から...
-
VBA 置換文字がみつからない時
-
各項目がダブルクォーテーショ...
-
csvデータ ダブルクォーテ...
-
エクセル VBA 複数条件一...
-
正規表現で、特定の文字列を含...
-
csvデータのダブルクォーテーシ...
-
xmlファイル内の文字列置換
-
PowerShellでテキストの空白行...
-
C#で空白行を削除する方法
-
ハングルを日本語に置換
-
複数のパワーポイントファイル...
-
Excel・ユーザーフォームの情報...
-
C言語でテキストファイルの内容...
-
Eclipse 改行後のタブ
-
テキストファイル中の文字列の置換
-
正規表現 特定の文字列を含む行...
-
EXCEL警告「置換対象のデータが...
-
○文字目に文字挿入
-
VBscriptで「改行」と「"」を置...
おすすめ情報