Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4052 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58654】一行おきに連続コピーするには？ 山塊 08/11/3(月) 10:01 質問[未読]
【58655】Re:一行おきに連続コピーするには？ かみちゃん 08/11/3(月) 10:11 発言[未読]
【58654】一行おきに連続コピーするには？
質問  山塊  - 08/11/3(月) 10:01 -
引用なし
パスワード
   おはようございます。
　一行おきに連続コピーしたいのですが、やり方はわからなくて、ご指導していただきたいです。よろしくお願いします。

一行おきに連続コピーとは、
A2：あ　→　　B3：あ
A4：い　→　　B4：い
A6：え　→　　B5：え
A8：お　→　　B6：お
【58655】Re:一行おきに連続コピーするには？
発言  かみちゃん  - 08/11/3(月) 10:11 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>　一行おきに連続コピーしたい

簡単な一例としては、以下のような感じでいかがでしょうか？

Sub Sample()
　Dim i As Integer
　Dim j As Integer
　
　j = 1
　For i = 1 To 8 Step 2
　　Cells(i, 1).Copy Cells(j, 2)
　　j = j + 1
　Next
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4052 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free