Excel VBA質問箱 IV

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

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


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

27309 / 76738

←次へ　｜　前へ→


	【54752】Re:教えてください

あさの - 08/3/28(金) 13:29 -


	引用なし

	パスワード

▼くまひげさん

レスポンスありがとうございます。
上手くいかなかった構文は削除してしまったので、もう一度やり直してみました。
すると、違った形で結果が出るようになってしまったので、新しい構文の方で別の内容のご指導をお願いします。

=======================================================================
　　Dim meisai As Integer
　　Dim CopyPos As Integer
　　Dim PastPos As Integer

　　meisai = 25　　　　　　　　　　　　 'データ数
　　PastPos = 8　　　　　　　　　　　　 '貼り付け開始行は8行目
　
　　For CopyPos = 8 To 32 Step 5
　　　　
　　　　'セルを2つコピーします。
　　　　Sheets("シート1").Select
　　　　Range(Cells(ichirangyo, CopyPos), Cells(ichirangyo, CopyPos + 1)).Select
　　　　Selection.Copy
　　　　
　　　　'コピーしたデータを貼り付けます。
　　　　Sheets("シート2").Select
　　　　Cells(PastPos, 9).Select
　　　　Selection.PasteSpecial
　　　　
　　　　'セルを2つコピーします。
　　　　Sheets("シート1").Select
　　　　Range(Cells(ichirangyo, CopyPos + 2), Cells(ichirangyo, CopyPos + 3)).Select
　　　　Selection.Copy
　　　　
　　　　'コピーしたデータを貼り付けます。
　　　　Sheets("シート2").Select
　　　　Cells(PastPos, 11).Select
　　　　Selection.PasteSpecial
　　
　　　　'セルを1つコピーします。
　　　　Sheets("シート1").Select
　　　■Range(Cells(ichirangyo, CopyPos + 4)).Select
　　　　Selection.Copy
　　　　
　　　　'コピーしたデータを貼り付けます。
　　　　Sheets("シート2").Select
　　　　Cells(PastPos, 13).Select
　　　　Selection.PasteSpecial
　　　　
　　　　'貼り付け先の列をカウントします。
　　　　PastPos = PastPos + 1
　　
　　Next CopyPos
=======================================================================
【質問１】
■の部分でエラーとなってしまいました。1つのセルの時には使えないのでしょうか？

【質問２】
出来れば値だけをコピーしたいのですが、どこを修正したらよろしいでしょうか？

【質問３】
もっとシンプルに出来る構文があれば、教えていただけますか？

0 hits

▼

【54744】教えてください あさの 08/3/28(金) 11:33