マクロ シート内容の比べについて

質問

下記のソースで実行したら、
MyStr1(0) = "AAAAAA" & Chr(10) & "BBBBBB" ' の行で

"実行時エラー'9'"
"インデックスが有効範囲にありません。"

というエラーが出ています。
調べても、わからないから、ここで質問をさせて頂きます。

最初に"Old""New""TEMP"３枚のシートが既存しています。
やりたいのは、"Old"シートと"New"シートの内容を検索して、異なる部分を探すことです。

----------------------------------------------------------------
Sub Macro1()
'
M = 3
N = 2

Sheets("Old").Select
Sheets("Old").Copy Before:=Sheets(1)
Sheets("Old (2)").Select
Sheets("Old (2)").Name = "TTT"

Dim MyStr1() As String
Dim K As Long

ReDim MyStr(K)

MyStr1(0) = "AAAAAA" & Chr(10) & "BBBBBB" 'エラーになった行
MyStr1(1) = "CCCC"
MyStr1(2) = "DDDDD"
MyStr1(3) = "FFFFFFFFF"
MyStr1(4) = "EEEEEEE"
MyStr1(5) = "SSSSSSSSS"
MyStr1(6) = "GGGGGGGGG"

For K = 0 To 6

X = 1
Y = 1
M = 3
N = N + 1

For Y = 1 To 100
For X = 1 To 300

'セル１の判断ループ
If Sheets("Old").Cells(X, Y) = MyStr1(K) Then
For M = 3 To 300
X = X + 1
If Sheets("Old").Cells(X, Y) <> Sheets("New").Cells(X, Y) Then
Sheets("TTT").Cells(X, Y).Select
With Selection.Interior
.ColorIndex = 1
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 6

End If
Next M

End If

Next X
Next Y

Next K

End Sub
-----------------------------------------------------------

以上、宜しくお願いします。

回答No.2

fujillin

回答はすでに出ていると思いますが、ついでに…

ご提示のコードが途中を省略していないのだとすると、
　ReDim MyStr(K)
の実行時にKの値が入っていないのでは？（0として扱われるのかな？）

＞最初に"Old""New""TEMP"３枚のシートが既存しています。
TEMPのシートはどこにも出てこないみたいだけど？

＞やりたいのは、"Old"シートと"New"シートの内容を検索して、
＞異なる部分を探すことです。
という内容と、セルの値とMyStr1() とを比較することの関連性が不明です。

ループのまわし方も、↑の「やりたいこと」から判断すると、ずいぶん違うように見えます。
（やりたいことが、全部書いてないのかも知れませんが…）

お礼

説明不足ですみませんでした。

回答を参照しても、解決してないから、まだ質問がさせていただきます。

回答No.1

Sinogi

ReDim MyStr(K)
MyStr1(0) = "AAAAAA"

宣言している配列と使用している配列の名前が違います

お礼

ご指摘の通りに直しましたが、結果が変わらないです。

問題を解決してないから、別件として、再度質問をさせていただきます。