エクセルVBAでUsedRangeかつB列の指定方法について

For Each c In ActiveSheet.UsedRange

略

Next

この構文で、cが全てのUsedRangeではなく、B列かつUsedRange内とするためにはどう記述すればいいのでしょうか？
よろしくお願いします。

No.2 ベストアンサー 回答者： papayuka 回答日時： 2004/04/19 20:50

範囲を得たいなら

Sub Test1()
　With ActiveSheet
　　　MsgBox Application.Intersect _
　　　　　　 (.Range("B:B"), .UsedRange).Address
　End With
End Sub

ループさせて各Rangeを処理するなら

Sub Test2()
Dim c As Range
　With ActiveSheet
　　For Each c In Application.Intersect _
　　　　　　　　　(.Range("B:B"), .UsedRange)
　　　　MsgBox c.Address
　　Next c
　End With
End Sub

この回答へのお礼

有難うございました！
完璧な回答、感謝いたします。

お礼日時：2004/04/20 09:10

No.3 回答者： imogasi 回答日時： 2004/04/19 21:22

For Each c In ActiveSheet.UsedRange

のＩｎ以下では別の表現を入れてＡＮＤ条件の指定は無理でしょう。
だから次の行に、ＩＦ文を入れて
Sub test02()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Column = 2 Then
MsgBox c.Address
End If
Next
End Sub
とすると$B$1,$B$2・・・のように$B付きのAddressが
表示されます。

この回答へのお礼

有難うございました。

お礼日時：2004/04/20 09:11

No.1 回答者： tinu2000 回答日時： 2004/04/19 20:14

For Each c In ActiveSheet.UsedRange

　If Left(c.Address, 2) = "$B" Then

　　　略

　End If
Next

ではだめですか？

この回答へのお礼

さっそくありがとうございました。
なるほど！

お礼日時：2004/04/20 09:09