ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ

質問
QNo.3281942 エクセル関数　２文字目に空白を入れるには
質問者：19735463 複数のセル全て（同じ行）に、２文字目にスペース１つを入れたいのですが、関数で一気にできる方法はないでしょうか？
困り度：
  • すぐに回答を！
質問投稿日時：
07/08/24 11:25
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答
ANo.3 ＜Sheet１＞
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Macro1
End Sub

＜Modul1＞
Sub Macro1()
　　If Mid(ActiveCell.Value, 2, 1) <> " " And Len(ActiveCell.Value) > 1 Then
　　　　ActiveCell.FormulaR1C1 = Left(ActiveCell.Value, 1) & " " & Mid$(ActiveCell.Value, 2)
　　End If
End Sub

まあ、これで対象となるセルをダブルクリックすれば目的は達成されます。
そういうことで、シコシコとダブルクリック。
回答者：Husky2007
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：
07/08/24 12:08
この回答へのお礼この回答にお礼をつける(質問者のみ)

回答良回答20pt
ANo.2 文字を入れ込む関数はなさそうですね。
しかも同じ列ではなく同じ行ですか？

ちょっと面倒ですが、性と名の間に一文字入れる簡易な方法を
流用して・・・
・該当セル範囲をコピーして別のシートに形式選択の「列を入れ替え」指定で貼り付ける。
・列を行に変更したところで一文字目とそれ以降を分離します。
→範囲選択して「データ」「区切り位置」「固定長指定」で１文字目と２文字目をクリックして「完了」。２つのセルになります。
・３つ目のセルにＣＯＮＣＡＴＩＮＡＴＥ関数でまとめる
「=CONCATENATE(A1," ",B1)」
・３つ目のセルを全部コピーして列を入れ替えて貼り付け

思いつくのはこれ位です。
回答者：rex9200
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：
07/08/24 12:04
この回答へのお礼返事が大変遅れまして申し訳ありません。
やってみました。
出来ました！大変助かりました。
ありがとうございました。

回答
ANo.1 アナログになりますが。。。
自分の場合、以下のようにすると思います。
スペースの右側と左側をそれぞれ別のセルに入力し、数式でくっつける。
すなわち、
A1セル　aaa B1セル　bbb　C1セル=A1&" "&A2
とするとC1に　aaa bbb と入力されますので。
いかがでしょうか。。。
回答者：paruru
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：
07/08/24 11:51
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
最新から表示｜回答順に表示｜良回答のみ表示
このページのトップへ