![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
5
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
6
ExcelVBAで今開いているユーザ情報を取得できますか?
Visual Basic(VBA)
-
7
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
8
エクセルの表示形式を保ったまま、セルに値を代入するには?
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
11
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
12
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
13
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
14
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
15
vba セルに入力した時間をマクロで受け取るには?
Excel(エクセル)
-
16
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
17
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
18
別のシートから値を取得するとき
Visual Basic(VBA)
-
19
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
20
VBAでPowerPointからExcelにデータを抽出する
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
csvデータ ダブルクォーテ...
-
VBA 置換文字がみつからない時
-
スペースで区切られた氏名から...
-
各項目がダブルクォーテーショ...
-
秀丸エディタで<a href=
-
TeraPadエディターの操作方法に...
-
置換した文字色の変更
-
正規表現で一括置換
-
PowerShellでテキストの空白行...
-
Eclipse 改行後のタブ
-
ダブルコーテーション 、"を二...
-
Perl ある特定の文字にある数値...
-
【Excel VBA】文字列の置換作業...
-
word VBA 改ページの繰り返しに...
-
テキストファイル中の文字列の置換
-
ハングルを日本語に置換
-
秀丸エディタで、「-」や「ー」...
-
秀丸で、ダブルクォーテーショ...
-
xmlファイル内の文字列置換
-
秀丸エディタで、行の後ろに倍...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
GoogleAppsScript文字列置換の...
-
VBA 置換文字がみつからない時
-
各項目がダブルクォーテーショ...
-
正規表現で、特定の文字列を含...
-
csvデータ ダブルクォーテ...
-
EXCEL警告「置換対象のデータが...
-
EXCEL VBA でCTRL+Fのダイア...
-
C言語でテキストファイルの内容...
-
スペースで区切られた氏名から...
-
csvデータのダブルクォーテーシ...
-
PowerShellでテキストの空白行...
-
\\(円)記号を置換したい
-
C#で空白行を削除する方法
-
【Excel VBA】文字列の置換作業...
-
python 大文字小文字を区別しな...
-
テキストファイル中の文字列の置換
-
Excel VBA 教えてください。 VB...
-
ハングルを日本語に置換
-
ダブルコーテーション 、"を二...
-
○文字目に文字挿入
おすすめ情報