エクセルVBAプログラムについての質問です。どなたか教えてください。

エクセルシートのある行で範囲指定をして、空白セルを指定し抽出します。次にその抽出した複数セルのうち一番左がわのセルをアクティブの状態にしようとしています。空白セルの抽出は下記のプログラムでできましたが、一番左がわのセルをアクティブにするプログラムがわかりません。
Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select

考えているのは、空白セルの左側から順に、別の条件設定をして得たデータを貼り付けていこうとというものです。
よろしくお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2009/05/06 17:06:22
  • 終了:2009/05/10 09:06:03

回答(2件)

id:kn1967 No.1

kn1967回答回数2915ベストアンサー獲得回数3012009/05/06 17:28:20

ポイント10pt

(1)左上のセルをアクティブにする方法

Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select
Selection.Activate

(2)順にアクセスする方法の例

Sub Macro1()
    Dim R1 As Range
    Dim R2 As Range

    Set R1 = Range("m149:q149").SpecialCells(xlCellTypeBlanks)
    For Each R2 In R1
        R2.Value = "R" & R2.Row & ":C" & R2.Column
    Next R2
End Sub

ところで・・・SpecialCellsは

途中に「何かが入っているセル」があれば、そこで探索を止めますし

ひとつも空白がなければエラーになりますので、ご注意を。

http://hatena.jp/ダミー

id:jccrh1 No.2

jccrh1回答回数111ベストアンサー獲得回数192009/05/06 20:01:07

ポイント60pt

単純に以下に変更すればできると思います。

Range("m149:q149").SpecialCells(xlCellTypeBlanks)(1, 1).Select

※Blankのセルがなければエラーになるので注意が必要ですが…

 

http://q.hatena.ne.jp/answer

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません