|
はじめまして。
セル内に斜体文字と普通の文字が不規則に混ざっている文字列が入力されています。
斜体の文字列と普通の文字列の間に目印の文字を挿入したいと考え、
例:
|(A:普通の文字、I:斜体の文字、@:目印)
|
|「AIIAAIAI」
|
|という文字列を
|
|「A@II@AA@I@A@I」
|にします。
文字列のフォントを左から順に2つずつ検査する
下記のようなコードを書きました。
現在はシート「sheet1」のセル「a1」を対象にしているのですが、
シート内の、データが入力されている全てのセルを対象に上記の例のような
結果を得たいのですが、どのようなやり方をすれば良いか教えて頂けませんでしょうか。
宜しくお願い致します。
'−−ここから−−−−−−−−−−
Sub イタリック検査()
Dim mae As Boolean
Dim ato As Boolean
Dim n As Integer
Dim S As Integer
'何回変化するのか検査する(→s回)
For n = 1 To Worksheets("sheet1").Range("a1").Characters.Count - 1
mae = Worksheets("sheet1").Range("a1").Characters(n, 1).Font.Italic
ato = Worksheets("sheet1").Range("a1").Characters(n + 1, 1).Font.Italic
If mae <> ato Then
S = S + 1
End If
Next
'変化する文字の前に文字列「@」挿入
For n = 1 To Worksheets("sheet1").Range("a1").Characters.Count - 1 + S
mae = Worksheets("sheet1").Range("a1").Characters(n, 1).Font.Italic
ato = Worksheets("sheet1").Range("a1").Characters(n + 1, 1).Font.Italic
If mae <> ato Then
Worksheets("sheet1").Range("a1").Characters(n + 1, 0).Text = "@"
n = n + 1
End If
Next
End Sub
|
|