スタイリングでテキストファイルからExcelにインポート

Question

私はテキストファイルを保存するプログラムを持っていますが、Excelで開く前にこのテキストに基本的なスタイリングを追加します。

私のファイルは、多くの場合、次のようになります。私は、Excelで開いたときに作る太字「テキストのタイトル」でしょう。このテキストファイルに書くことができます何が

Title of text 

lorem ipsum dolor sit amet 

ありますか？ HTMLタグのように

は

<b>Title of text</b> 

lorem ipsum dolor sit amet 

Excel用の同様のものはありますでしょうか？

Answer 1

次のコードを使用できます。このコードでは、範囲はA1:A13です。必要に応じてフォーマットする範囲を選択できます。このコードをVisual Basicエディタにコピーし、Run Subボタンを使用してサブプログラムを実行します。

Sub Macro1() 

Dim str As String 
Dim nBold As Long 
Dim nEndBold As Long 
Dim nChars As Long 
Set Rng = Range("A1:A13") 

For Each cell In Rng 
    str = cell.Text 
    nBold = InStr(str, "<b>") 
    If nBold > 0 Then 
     nEndBold = InStr(str, "</b>") 
    If nEndBold = 0 Then nEndBold = 32767 
     nChars = nEndBold - nBold - 3 
     str = Replace(Replace(str, "<b>", ""), "</b>", "") 
     cell.Value = str 
     cell.Characters(nBold, nChars).Font.Bold = True 
    End If 
Next cell 

End Sub 

詳細については、this linkを参照してください。