回答編集履歴
1
一か所修正しました。For i = ustr.ZenLen + 1 To ustr.HanLenをFor i = ustr.ZenLen To ustr.HanLenにしました。（get_updat）
test
CHANGED
|
@@ -194,7 +194,7 @@
|
|
|
194
194
|
|
|
195
195
|
End If
|
|
196
196
|
|
|
197
|
-
For i = ustr.ZenLen
|
|
197
|
+
For i = ustr.ZenLen To ustr.HanLen
|
|
198
198
|
|
|
199
199
|
str = Mid(rg.Value, start_pos, i)
|
|
200
200
|
|