Excel VBA質問箱 IV

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

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


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

12186 / 76734

←次へ　｜　前へ→


	【70074】Re:貼り付けるデータを一定間隔で分割して貼り付けたい

kanabun - 11/10/13(木) 20:08 -


	引用なし

	パスワード

▼げっちさん： >ただ、データが１行（横）ではなく、１列（縦）の場合もあるのですが、 >その場合はどこがどう変わるのでしょうか。縦1列ですか？ [Sheet1 A列] あいうえおかきくけこさしこれを、 [Sheet2] A　　B　　C　　あ　か　さい　き　しう　く　え　け　お　こ　 > こうしたいなら、手作業でそれをやるときの手順をコード化していけばいいのでは？一例ですが、 Sub Try2() 　Dim i As Long, j As Long 　Dim n As Long 　Const Stp = 5　　 '5行づつ　With Sheet1 　　　n = .Range("A1", .Cells(.Rows.Count, 1).End(xlUp)).Rows.Count 　　　For i = 1 To n Step Stp 　　　　　j = j + 1 　　　　　.Cells(i, 1).Resize(Stp).Copy Sheet2.Cells(1, j) 　　　Next 　End With End Sub