質問編集履歴
1
問題の原因がわかりましたので、結果を追記しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -222,4 +222,29 @@
|
|
|
222
222
|
|
|
223
223
|
End Sub
|
|
224
224
|
|
|
225
|
-
以上、よろしくお願いいたします。
|
|
225
|
+
以上、よろしくお願いいたします。
|
|
226
|
+
|
|
227
|
+
|
|
228
|
+
＜解決しました＞
|
|
229
|
+
|
|
230
|
+
誤動作の原因が分かりました。
|
|
231
|
+
どう見ても同じなのに不一致、つまり差分箇所と判定されている箇所を
|
|
232
|
+
抜き出し、LEN関数で文字数を確認したところ、1文字違っていました。
|
|
233
|
+
一方のリストに余分な制御コードが含まれていたのです。
|
|
234
|
+
セル内の改行回数は同じであり、スペースもないので、その制御コードに
|
|
235
|
+
どのような機能があるのかは不明ですが、すべてのセルの制御コードを
|
|
236
|
+
削除した後、改めて差分チェックマクロを実行すると、正確な結果が得られました。
|
|
237
|
+
|
|
238
|
+
今後は、制御コードによる文字数の不一致にも対応できるようにコードを書き換えたいと
|
|
239
|
+
思います。ただし、
|
|
240
|
+
|
|
241
|
+
Private Sub trim()
|
|
242
|
+
Dim c As Range
|
|
243
|
+
For Each c In Selection
|
|
244
|
+
c = WorksheetFunction.Clean(c)
|
|
245
|
+
Next c
|
|
246
|
+
End Sub
|
|
247
|
+
|
|
248
|
+
のような簡易なコードでは時間が結構かかったので、これを何とかしなくてはいけませんが。
|
|
249
|
+
|
|
250
|
+
回答、コメントをくださった方々、ありがとうございました。
|