|
▼UO3 さん:
>▼rin さん:
>
>仮にListObjectだとします。
>(違っていたら無視してください)
>
>Option Explicit
>
>Sub Test()
>Dim myList As ListObject
>Dim c As Long
>Dim r As Long
>Dim i As Long
>Dim x As Long
>
> Set myList = ActiveSheet.ListObjects(1)
> c = myList.ListColumns.Count
> r = myList.ListRows.Count
> x = 1
> For i = 1 To r
> Cells(x, c + 2).Resize(c) = WorksheetFunction.Transpose(myList.ListRows.Item(i).Range)
> x = x + c
> Next
> Set myList = Nothing
>
>End Sub
ご回答をいただきありがとうございました。
Sheetの中でE11:J20まで数字が埋められています。
Dim myList As ListObject
にこのセル範囲を当てはめた方がよいですか?
|
|