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

回答編集履歴

1

コードの追加

2017/07/08 04:03

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -40,4 +40,10 @@
40
40
  Next i2
41
41
  Next i
42
42
  End Sub
43
+ ```
44
+ 「比較先が比較元に含まれる」場合、コピーせずに、比較先を削除して、上にずれた分iを補正してもOKです。
45
+ ```
46
+ If start <= start2 And ennd >= ennd2 Then '比較先が比較元に含まれる
47
+ Rows(i2).Delete '比較先行を削除
48
+ i = i - 1 '削除でずれた分の補正
43
49
  ```