teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

問題の原因がわかりましたので、結果を追記しました。

2020/04/08 05:58

投稿

nbotnk
nbotnk

スコア9

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
+ 回答、コメントをくださった方々、ありがとうございました。