
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
VBA 半角スペースを入れるには...
その他(Microsoft Office)
-
エクセル すべての文字間にスペースを入れる方法
Excel(エクセル)
-
エクセル 全ての文字の間に半角スペースを入れたい
Excel(エクセル)
-
-
4
Excelで、入力文字の後に自動で空白を入れるには
Excel(エクセル)
-
5
Excelで文字間にスペースを一発で入れられる方法を教えてください。
Excel(エクセル)
-
6
エクセルで特定の文字の前や後で半角スペースを一括挿入したい。
Word(ワード)
-
7
セルに文字列を入力すると、自動で文字間に1文字分の空白ができるような設定はありませんか?
Excel(エクセル)
-
8
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
9
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
10
EXCELの文字列操作で文字数不足の分をスペースで補う方法
Excel(エクセル)
-
11
Excel 文字列の前後に、特定の文字を付加したい
Excel(エクセル)
-
12
Excel 文字の前にスペースを入れる
Excel(エクセル)
-
13
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
14
セルの書式設定のフォントやサイズの設定はできないの
Excel(エクセル)
-
15
Excelで特定の文字の前だけに空白を挿入したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
大学のレポート A4で1枚レポー...
-
マクロ自動コピペ 貼り付ける場...
-
Excel 日付を比較したら、同じ...
-
Office2021を別のPCにインスト...
-
エクセルで質問です。 ハイパー...
-
Microsoft365、ページ設定がで...
-
エクセルやパワポファイルの保...
-
【Excel VBA】PDFを作成して,...
-
エクセル 同じ数字を他の列に自...
-
Office 2021 Professional Plus...
-
outlookのメールが固まってしま...
-
役所でもらった書類をエクセル...
-
Microsoft365搭載Windows11PCへ...
-
Microsoft Formsの「個人情報や...
-
office365って抵抗感ないですか?
-
パソコンWindows11 Office2021...
-
エクセルからメールを作れるか...
-
Excelで〇のついたものを抽出し...
-
Teams内でショートカットって貼...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel2010でふりがなが漢字にな...
-
エクセルの文字間スペースを入...
-
データの一括選択
-
エクセルのデータ抽出
-
エクセル、同一文字の最上行の...
-
excel セルの複写など
-
エクセル シート内のハイパー...
-
UserFormのTextBoxからフリガナ...
-
エクセルでこんなことはできな...
-
エクセルについてです。 ランダ...
-
excel 同一セルの文字列と数値...
-
Excel VBAに関して
-
Excelで同一セル内に入力されて...
-
行と列の入れ替え
-
Excelでコンソボックスの設定
-
続きをお願いいたします。
-
VBAで横データを縦データに変換...
-
【マクロ】セルの塗りつぶし色...
-
不明なコマンドです("FROM")。...
-
パソコンにコンポーザーをイン...
おすすめ情報