Excel VBA質問箱 IV

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

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


17577 / 76732 ←次へ | 前へ→

【64608】Re:64593の質問者です
発言  Yuki  - 10/2/25(木) 13:51 -

引用なし
パスワード
   ▼rin さん:
>ある範囲指定をしたリストがあります。
>1行目のデータを行列を入れ替えて(横から縦並びへ)コピーをし、(どこかリストの外側の列へ)
>次に2行目のデータを1行目の並び替えをしたデータの下に同じく行列を入れ替えてコピーをする。
>更に3行目のデータを行列を入れ替えて、並び替えをした列の再下段へ貼り付ける・・・。
>これをリストの再下段まで繰り返し、1列のデータに仕上げる作業をしたいと思います。
>マクロを走らせて処理をする方法はどうしたらできるでしょうか?

こんな方法でSheet2のA列へ
Sub TESTa()
  Dim i  As Long
  Dim j  As Long
  
  j = 1
  For i = 11 To 20
    Worksheets("Sheet1").Cells(i, 5).Resize(, 6).Copy
    Worksheets("Sheet2").Cells(j, 1).PasteSpecial Paste:=xlPasteAll, _
                           Operation:=xlNone, _
                           SkipBlanks:=False, _
                           Transpose:=True
    j = j + 6
  Next
End Sub
0 hits

【64594】64593の質問者です rin 10/2/24(水) 18:16 質問
【64596】Re:64593の質問者です neptune 10/2/24(水) 23:21 発言
【64598】Re:64593の質問者です UO3 10/2/25(木) 0:01 発言
【64599】Re:64593の質問者です UO3 10/2/25(木) 0:13 回答
【64603】Re:64593の質問者です rin 10/2/25(木) 11:46 質問
【64605】Re:64593の質問者です 超初心者 10/2/25(木) 11:59 発言
【64610】Re:64593の質問者です rin 10/2/25(木) 14:25 お礼
【64613】Re:64593の質問者です rin 10/2/25(木) 16:44 質問
【64614】Re:64593の質問者です 超初心者 10/2/25(木) 16:49 発言
【64615】Re:64593の質問者です rin 10/2/25(木) 17:08 お礼
【64616】Re:64593の質問者です 超初心者 10/2/25(木) 17:19 発言
【64617】Re:64593の質問者です rin 10/2/25(木) 17:30 お礼
【64618】Re:64593の質問者です 超初心者 10/2/25(木) 17:55 発言
【64619】Re:64593の質問者です rin 10/2/25(木) 18:26 お礼
【64606】Re:64593の質問者です UO3 10/2/25(木) 12:37 回答
【64608】Re:64593の質問者です Yuki 10/2/25(木) 13:51 発言

17577 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free