| |
▼くまひげさん
レスポンスありがとうございます。
上手くいかなかった構文は削除してしまったので、もう一度やり直してみました。
すると、違った形で結果が出るようになってしまったので、新しい構文の方で別の内容のご指導をお願いします。
=======================================================================
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つのセルの時には使えないのでしょうか？
【質問２】
出来れば値だけをコピーしたいのですが、どこを修正したらよろしいでしょうか？
【質問３】
もっとシンプルに出来る構文があれば、教えていただけますか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
