回答編集履歴
2
補足
test
CHANGED
|
@@ -95,3 +95,13 @@
|
|
|
95
95
|
End If
|
|
96
96
|
|
|
97
97
|
```
|
|
98
|
+
|
|
99
|
+
補足
|
|
100
|
+
|
|
101
|
+
---
|
|
102
|
+
|
|
103
|
+
thom.jpさんの回答の[リンク先](https://thom.hateblo.jp/entry/2016/09/20/150650)でNBSP(ノーブレークスペース)を通常の半角スペースに変換する自作関数が紹介されていますが、NBSPは、ChrW(160)で表現できます。ということで、
|
|
104
|
+
|
|
105
|
+
`Replace(Range("A1").Value, ChrW(160)," ")`
|
|
106
|
+
|
|
107
|
+
で変換できます。
|
1
コード修正
test
CHANGED
|
@@ -48,7 +48,7 @@
|
|
|
48
48
|
|
|
49
49
|
Case Replace("（6）4?未満", "?", cm2)
|
|
50
50
|
|
|
51
|
-
r7 =
|
|
51
|
+
r7 = 6
|
|
52
52
|
|
|
53
53
|
Case Replace("（9）4?以上16?未満", "?", cm2)
|
|
54
54
|
|