|
▼くまひげさん
レスポンスありがとうございます。
上手くいかなかった構文は削除してしまったので、もう一度やり直してみました。
すると、違った形で結果が出るようになってしまったので、新しい構文の方で別の内容のご指導をお願いします。
=======================================================================
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】
■の部分でエラーとなってしまいました。1つのセルの時には使えないのでしょうか?
【質問2】
出来れば値だけをコピーしたいのですが、どこを修正したらよろしいでしょうか?
【質問3】
もっとシンプルに出来る構文があれば、教えていただけますか?
|
|