エクセルシートのある行で範囲指定をして、空白セルを指定し抽出します。次にその抽出した複数セルのうち一番左がわのセルをアクティブの状態にしようとしています。空白セルの抽出は下記のプログラムでできましたが、一番左がわのセルをアクティブにするプログラムがわかりません。
Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select
考えているのは、空白セルの左側から順に、別の条件設定をして得たデータを貼り付けていこうとというものです。
よろしくお願いします。
No.1
2915
301
10pt
（１）左上のセルをアクティブにする方法
6
6
Range("m149:q149").SpecialCells(xlCellTypeBlanks).Select
Selection.Activate
（２）順にアクセスする方法の例
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は
途中に「何かが入っているセル」があれば、そこで探索を止めますし
ひとつも空白がなければエラーになりますので、ご注意を。
No.2
11119
60pt
単純に以下に変更すればできると思います。
Range("m149:q149").SpecialCells(xlCellTypeBlanks)(1, 1).Select
※Blankのセルがなければエラーになるので注意が必要ですが…
2
2
1
コメント（0件)