|
■No36696 (よっくん さん) に返信
> 二行目に行く際はまたhairetuを上書きでいれていくだけでいいです
地道にやるとしたらこんな感じかなぁ。
コードはVBですが
With DirectCast(ThisWorkbook.ActiveSheet, Excel.Worksheet).Range("A1").CurrentRegion 'アクティブシートのセルA1のセル領域
Dim hairetu(.Columns.Count - 1) As Double
Dim idx As Integer
For Row As Integer = 1 To .Rows.Count
Dim RowData As Array = DirectCast(DirectCast(.Rows.Item(Row), Excel.Range).Value, Array)
For Each ColumnData As Double In RowData
hairetu(idx) = ColumnData
idx += 1
Next
Next
End With
hairetu と ColumnData は適切なデータ型にしてください。
|