Excelで1つの列を範囲指定するには？ (ID:125108)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 …というか、本質は Columns で指定した Range を For Each でまわしてもセル１つずつ取れてこないと いう事ですね。Column が取れてるのかな？？？ … Cells を使って普通の For 文でまわせば？ [VBA]で確認しました。 Sub Test() Dim xlsRange As Range Dim aaa() As Variant Dim xlsRange2 As Range Set xlsRange = Worksheets("Sheet1").Columns(2) Debug.Print xlsRange.Address '>$B:$B Debug.Print xlsRange.Rows.Count '>65536 Debug.Print xlsRange.Columns.Count '>1 Debug.Print xlsRange.Cells(1, 1).Address '>$B$1 For Each xlsRange In Worksheets("Sheet1").Columns(2) Debug.Print xlsRange.Address '>$B:$B aaa = xlsRange.Value Debug.Print UBound(aaa, 1) '>65536 Debug.Print UBound(aaa, 2) '>1 For Each xlsRange2 In xlsRange Debug.Print xlsRange2.Address '>$B:$B Next Next End Sub