Excel VBA質問箱 IV

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

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


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

11964 / 76734

←次へ　｜　前へ→


	【70298】Re:指定分行列入れ替え

UO3 - 11/10/31(月) 11:04 -


	引用なし

	パスワード

▼help さん：

もし、上記で提示した理解が正しいとすれば、以下のような処理も考えられます。
配列を使わず、セル領域を相手にしますので、直接Transposeが利用できます。

Sub Test2()
　　Dim i As Long
　　Dim n As Long
　　Dim wCol As Long
　　Dim mRow As Long
　　Dim mCols As Long
　　
　　wCol = 4 + 2
　　
　　With Range("a1").CurrentRegion
　　　　mRow = .Rows.Count
　　　　mCols = .Columns.Count
　　　　.Cells(1, wCol).Resize(mRow, mCols).Value = .Value
　　　　.Clear
　　End With
　　
　　n = 1
　　
　　For i = 1 To mRow Step 4
　　　　Cells(n, 1).Resize(mCols, 4).Value = _
　　　　　　WorksheetFunction.Transpose(Cells(i, wCol).Resize(4, mCols).Value)
　　　　n = n + mCols
　　Next
　　
　　Cells(1, wCol).CurrentRegion.Clear
　　
End Sub

2 hits

▼

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