Microsoft Access 掲示板

エクセルのセル内ではタブ文字は空白として表示できない仕様です。

Cells(1,1).Value = "AAA" & vbTab & "BBB"

下の画像は、上記のコードを実行したシートです。

セルでは空白はないですが、数式バーは空白(タブ)が表示されてます。
セルをコピーしてテキストエディターに貼り付けるとちゃんとタブは挿入されています。

つまり、タブが削除されるのではなく、タブはあるがセル内では表示されないということです。

セル内で空白を表示したいのなら、スペースを使うしかないです。

ご回答ありがとうございます。
なるほどです。タブはあるがセル上、表示されていないということですね。

このセル内が横に複数列あり、 ひとつひとつのセル内にvbCrLfで改行を入れ、最大10数行程度になります。
そして、これらが数十から数百くらいの行で構成されています。

ですので、列ごとにタブを入れて、文字の左面を合わせたいというのが目的です。
単に複数の半角スペースを入れただけですと、この目的が達成できないのがご相談の真の内容です。

タブを１つもしくは２つ入れた場合のように、スペースを入れられれば解決するのですが、難易度が高く挫けております。

１セル内で表形式のような見栄えで表示したいということでしょうか。
最終目的は、印刷ですか。

VBAでスペースを適切に挿入するようにすれば可能だとは思いますが、
表計算ソフトのエクセルでやるようなことではないように思います。

ご想像の通りでして、仰ることもごもっともです。
そうではありますが、どうしてもやりたいと思っていまして。

フォントはMSゴシックで、ひとまず下記のようにスペースを
埋めました。イミディエイトウインドウ上では全て字面が
合っているのですが、Excel上ではズレが生じています。

debug.print addSpace("AAA") & "BBB"

Cells(i,j).Value = addSpace("AAA") & "BBB"

debug.print Cells(i,j).Value

Function addSpace(strDept As String) As String

    addSpace = strDept & Space(40 - LenB(strDept))

End Function

タブをスペースに変換する関数を作成してみました。

Public Function Tab2Spaces(s As String, n As Long)
    Dim lines: lines = Split(s, vbLf)
    Dim l
    For Each l In lines
        Dim a: a = Split(l, vbTab)
        Tab2Spaces = RTrim(Tab2Spaces) & vbLf
        Dim i
        For Each i In a
            Tab2Spaces = Tab2Spaces & Format(i, "!" & String(n, "@"))
        Next
    Next
    Tab2Spaces = Mid(Tab2Spaces, 2)
End Function

上記のコードを標準モジュールにコピーしてください。

A1セルにタブと改行を含むテキストを貼り付けます。その後、下記のコードを実行します。

Public Sub test()
   Range("A2") = Tab2Spaces(Range("A1"), 8)
End Sub

実行後のシート↓

失礼しました。フォントがBoldになっておりまして、これを修正したら字面が合いました。

ありがとうございます。
素晴らしいです。確認させていただきます。