回答編集履歴
1
追記
test
CHANGED
|
@@ -8,7 +8,7 @@
|
|
|
8
8
|
|
|
9
9
|
tmpRange.MergeArea(1).Characters(i, 1).Font.Strikethrough = False
|
|
10
10
|
|
|
11
|
-
tmpRange.MergeArea(1).Characters(i, 1).
|
|
11
|
+
tmpRange.MergeArea(1).Characters(i, 1).Text = ""
|
|
12
12
|
|
|
13
13
|
Else
|
|
14
14
|
|
|
@@ -21,3 +21,5 @@
|
|
|
21
21
|
Loop
|
|
22
22
|
|
|
23
23
|
```
|
|
24
|
+
|
|
25
|
+
**Delete**ではなく空文字で置き換えると上手く動作しました。
|