下記エクセルＶＢＡコード:改良 表

下記エクセルＶＢＡコードの中で
Case "a"
Case "b"
Case "c"
などの情報を処理していますが、その”a”、"b"、"c"の代わりに、$A$50～$A$52の表の中（ここにａとか入っている）のデータを用いて処理できるようにするには、どのようにコードを変更すべきでしょうか。よろしくお願いします。

Sub test01()
d = Range("A65536").End(xlUp).Row
j = 1
For i = 1 To d
Select Case Cells(i, "a")
Case "a"
Case "b"
Case "c"
'---XXX
Case Else
Worksheets("Sheet2").Cells(j, "A") = Cells(i, "A")
Worksheets("Sheet2").Cells(j, "B") = Cells(i, "b")
列や行やシートが変わっても、類推で変えられるでしょう。
'---YYY
j = j + 1
End Select
Next i
End Sub

No.1 ベストアンサー 回答者： ttyp03 回答日時： 2006/02/15 14:34

Case "a"

Case "b"
Case "c"

これを次のように変更したらどうでしょう？

Case Cells(50,"A")
Case Cells(51,"A")
Case Cells(52,"A")

この回答へのお礼

解決しました.ご回答どうもありがとうございました。

お礼日時：2006/02/15 15:13