100 ほどの配列名を使用するコードがあり (以下の例では 3 つしか使用していません)、それぞれに異なる数の要素が含まれています。変数「i」を使用して配列名を参照しようとしています。ここで、「i」は配列名とシート名のインデックスに使用されます。
"Selection.Replace" で始まるコード行が "アプリケーション定義またはオブジェクト定義エラー" で失敗する これは、Excel 2007 for Windows では正常に動作しますが、Excel for MAC 2011 では失敗します。
これを再び機能させるには、どのような変更を加える必要がありますか (Excel 2007 または 2010 を使用する以外に)?
乾杯!
hist1 array("a","b","c","d","x")
hist2 array("a","e","f","g")
hist3 array("a","b","c","d","g","x")
i = 1
Do While i < 4
j = 0
Select Case i
Case 1
cnt = 4
Case 2
cnt = 3
Case 3
cnt = 5
End Select
Do While j < cnt
Sheets(i).Select
Selection.Replace What:="hist" & i & "(" & cnt & ")", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
j = j + 1
Loop
i = i + 1
Loop