Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11967 / 76734

←次へ　｜　前へ→


	【70295】指定分行列入れ替え

help - 11/10/31(月) 7:24 -


	引用なし

	パスワード

Private Sub CommandButton83_Click()
Dim myr As Variant
Dim cc As Variant
Dim ss As Variant
Dim i As Long
Dim n As Long
Dim r As Long
With Range("a1").CurrentRegion
　myr = .Value
　.clear
End With
For i = 1 To UBound(myr, 1) Step 4
　r = i + 3
　　cc = Range(myr(i, 1), myr(r, 1))
　　　ss = WorksheetFunction.Transpose(cc) '配列の入れ替えたものをssに格納
　n = n + 1
　Cells(n, 1).rezise(UBound(ss, 1), UBound(ss, 2)) = ss
Next i
End Sub

ここでエラーが出ます。
cc = Range(myr(i, 1), myr(r, 1))　myrの４つの範囲ずつ行列を入れ替えたのですが・・・・・・

結構勉強したのですが。これ以上わかりません。なぜ？

6 hits

▼

【70295】指定分行列入れ替え help 11/10/31(月) 7:24

≪