回答編集履歴
1
追記
answer
CHANGED
|
@@ -3,10 +3,11 @@
|
|
|
3
3
|
Do While i <= tmpLength
|
|
4
4
|
If tmpRange.MergeArea(1).Characters(i, 1).Font.Strikethrough Then
|
|
5
5
|
tmpRange.MergeArea(1).Characters(i, 1).Font.Strikethrough = False
|
|
6
|
-
tmpRange.MergeArea(1).Characters(i, 1).
|
|
6
|
+
tmpRange.MergeArea(1).Characters(i, 1).Text = ""
|
|
7
7
|
Else
|
|
8
8
|
i = i + 1
|
|
9
9
|
End If
|
|
10
10
|
tmpLength = Len(tmpRange.MergeArea(1).Value)
|
|
11
11
|
Loop
|
|
12
|
-
```
|
|
12
|
+
```
|
|
13
|
+
**Delete**ではなく空文字で置き換えると上手く動作しました。
|