A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
関数だけで実現できるかどうかは分かりません。
。。私ならユーザー定義関数を作ってしまいます。
#2さんのを少し変えれば実現できます。
でも、それだと芸がないと言われそうなので
http://exvba.officehp.com/category/7342037-1.html
を参考に操作してください。
下記を標準モジュールに
Function spcChr(r As Range) As String
Dim ss As String
ss = String(Len(r.Value), "\")
ss = Replace(ss, "\", "@ ")
ss = Left(ss, Len(ss) - 1)
spcChr = Format(r.Value, ss)
End Function
Excelのワークシートに戻って
適当なセルで一般の関数同様、 =spcchr(A1)
などととすれば?
No.4
- 回答日時:
A1セルから下方にお示しのようなデータが並んでいるとして、例えば15文字までのデータに対応する、勿論それ以上でも対応できますがここではあくまでも例として示します。
D列から右の列を作業列とします。
D1セルには次の式を入力して下方にドラッグコピーします。
=IF(A1="","",A1)
E1セルには次の式を入力してS1セルまでドラッグコピーしたのちに下方にもドラッグコピーします。
=MID(D1,1,(COLUMN(A1)-1)*2+1)&" "&MID(D1,COLUMN(A1)*2,100)
お求めの空白のスペースの入った文字列をB列に表示させるとしてB1セルには次の式を入力して下方にドラッグコピーします。
=IF(A1="","",S1)
No.3
- 回答日時:
データの使途が不明なので他の回答者と変わらないのですが。
入力されるデータの最高桁数が決まっているのなら下記の方法もあります。
例:D115のセルに最高15桁の文字が入力される場合。
変換用セルにお望みの文字がセットされます。
=MID(D115,1,1)&" "&MID(D115,2,1)&" "&MID(D115,3,1)&" "&MID(D115,4,1)&" "&MID(D115,5,1)&" "&MID(D115,6,1)&" "&MID(D115,7,1)&" "&MID(D115,8,1)&" "&MID(D115,9,1)&" "&MID(D115,10,1)&" "&MID(D115,11,1)&" "&MID(D115,12,1)&" "&MID(D115,13,1)&" "&MID(D115,14,1)&" "&MID(D115,15,1&" ")
ご確認ください。
No.2
- 回答日時:
こんにちは!
無理やり関数でやるのであれば、No.1さんが回答されているような方法になると思います。
ただし、文字数が決まっていない場合は難しいでしょうね!
そこでVBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
尚、データはA1セル以降にあり、B列に表示するようにしています。
Sub Sample1() 'この行から
Dim i As Long, k As Long, str As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To Len(Cells(i, 1))
str = str & Mid(Cells(i, 1), k, 1) & " "
Next k
Cells(i, 2) = Trim(str)
str = ""
Next i
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
No.1
- 回答日時:
いいえ。
ありません。敢えて言えば
=REPLACE(REPLACE(REPLACE(REPLACE(A1,5,0," "),4,0," "),3,0," "),2,0," ")
みたいに1文字ずつ挟んでいくような格好になりますが、とても現実的じゃありません。
手で書き足していった方が遥かに簡単ですが、セルの書式設定の配置の横位置で均等割り付けを設定するなど、別の手を考えます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセル 関数について 2 2022/10/10 07:56
- Excel(エクセル) エクセルでセルに何らかの文字が入力されたらそれを任意の数値として認識させる方法がしりたいです。 3 2023/03/16 20:19
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) エクセルでのデータの統一に関して リストを作成する際、元データをコピペでリストに転記しており、元デー 2 2022/08/31 15:33
- Excel(エクセル) Excel 365 フリーズ 頻発 エクセルのセルの中に日本語の文章を全角半角和文英文数字を混ぜて入 3 2022/12/12 15:09
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Ruby 1、Rstudioで回帰直線を求めるために必要な関数はなにか?アルファベット2文字で答えよ。 2、r 1 2022/08/03 11:38
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) エクセル関数について教えてください 4 2023/02/05 14:47
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
3分あったら何をしますか?
カップ麺にお湯を入れて、できるまでの3分間で皆さんは何をしていますか?
-
治せない「クセ」を教えてください
なくて七癖という言葉どおり、人によっていろいろなクセがありますよね。 あなたには治せないクセがありますか?
-
集合写真、どこに映る?
あなたが集合写真を撮られるとき、画角のどのあたりにいることが多いですか? 私は振り返ってみると右の端にいることが多い気がします。
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
エクセル すべての文字間にスペースを入れる方法
Excel(エクセル)
-
-
4
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
5
Excelで、入力文字の後に自動で空白を入れるには
Excel(エクセル)
-
6
エクセルで特定の文字の前や後で半角スペースを一括挿入したい。
Word(ワード)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
EXCELの文字列操作で文字数不足の分をスペースで補う方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・「みんな教えて! 選手権!!」開催のお知らせ
- ・漫画をレンタルでお得に読める!
- ・「黒歴史」教えて下さい
- ・2024年においていきたいもの
- ・我が家のお雑煮スタイル、教えて下さい
- ・店員も客も斜め上を行くデパートの福袋
- ・食べられるかと思ったけど…ダメでした
- ・【大喜利】【投稿~12/28】こんなおせち料理は嫌だ
- ・前回の年越しの瞬間、何してた?
- ・【お題】マッチョ習字
- ・モテ期を経験した方いらっしゃいますか?
- ・一番最初にネットにつないだのはいつ?
- ・好きな人を振り向かせるためにしたこと
- ・【選手権お題その2】この漫画の2コマ目を考えてください
- ・2024年に成し遂げたこと
- ・3分あったら何をしますか?
- ・何歳が一番楽しかった?
- ・治せない「クセ」を教えてください
- ・【大喜利】【投稿~12/17】 ありそうだけど絶対に無いことわざ
- ・【選手権お題その1】これってもしかして自分だけかもしれないな…と思うあるあるを教えてください
- ・集合写真、どこに映る?
- ・自分の通っていた小学校のあるある
- ・フォントについて教えてください!
- ・これが怖いの自分だけ?というものありますか?
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・10代と話して驚いたこと
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの文字間スペースを入...
-
VBAで横データを縦データに変換...
-
【マクロ】セルの塗りつぶし色...
-
Excelでコンソボックスの設定
-
Access2010 「演算子がありませ...
-
不明なコマンドです("FROM")。...
-
【ExcelVBA】sheet作成時にマク...
-
AUTOCAD 2010でdwlファイルの場...
-
Windowsドメイン環境でのVPN...
-
mfc42.dllファイルってなんです...
-
VBA シートの切り替えができな...
-
MACのBootCampでWin10のインス...
-
筆ぐるめver12インストール中の...
-
貼り付けをマクロで禁止させたい。
-
マクロ実行ボタンがコピー出来ない
-
Cドライブ直下にインストール...
-
エクセル/マクロ Exit Subが実...
-
エクセルをエクセレントに究める
-
オペランドが足りませんとコメ...
-
GETからPOSTに変更
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの文字間スペースを入...
-
Excel2010でふりがなが漢字にな...
-
【マクロ】セルの塗りつぶし色...
-
UserFormのTextBoxからフリガナ...
-
VBAで横データを縦データに変換...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
オペランドが足りませんとコメ...
-
VBA シートの切り替えができな...
-
mfc42.dllファイルってなんです...
-
エクセル/マクロ Exit Subが実...
-
AUTOCAD 2010でdwlファイルの場...
-
pythonでrequestsが使えない
-
MACのBootCampでWin10のインス...
-
エクセルをエクセレントに究める
-
マクロ実行ボタンがコピー出来ない
-
VBAでシートコピー後、シート名...
-
(int)キャストとintvalの違い
-
貼り付けをマクロで禁止させたい。
おすすめ情報