excelのマクロについて質問です。

A列からR列まで、顧客のデータが入ったリストが100行近くあります。

そしてその先にはP列「数値名」Q列「数値」というようにデータを交互に並べていったとして、それらのデータを別のシートに縦に2つずつ並べていくマクロを教えてください。

A B
「数値名」「数値」
「数値名」「数値」
「数値名」「数値」

という感じです！

excel2016です。

質問者からの補足コメント

• 早速の回答有り難うございます！
  
  データ自体はP,Q以降も交互に続いていきます。
  しかも、行によって入力されているデータの数が異なるのです。
  
  ループすればよいのはわかるのですが、うまくいきません。
  
  最悪、シートの移動はなくても大丈夫なので、再度よろしくおねがいします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/10/21 00:12

• 早速の回答有り難うございます！
  
  データ自体はP,Q以降も交互に続いていきます。
  しかも、行によって入力されているデータの数が異なるのです。
  
  ループすればよいのはわかるのですが、うまくいきません。
  
  最悪、シートの移動はなくても大丈夫なので、再度よろしくおねがいします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/10/21 00:16

No.3 ベストアンサー 回答者： googoo900 回答日時： 2018/10/21 02:12

No.1です。

当初の質問文にはP,Q列の処理についてしか書いてなかったと思います。
それ以降の列についてやりたいことが伝わりません。
①、②のどちらでしょうか？それともこれら以外？

①
P,Q→シート2のA,B
R,S→シート3のA,B
T,U→シート4のA,B

②
P,Q→シート2のA,B
R,S→シート2のA,B（P,Qの下）
T,U→シート2のA,B（R,Sの下）

この回答へのお礼

説明が下手で申し訳ありませんでした。
実際にやりたい処理は上げていただいた②処理でしたが、なんとか自分で組み立てることが出来ました。
ご協力いただきありがとうございました！

お礼日時：2018/10/21 02:16

No.2 回答者： WindFaller 回答日時： 2018/10/20 20:52

こんばんは。

例えば、こんなことでしょうか？

'//標準モジュール　'ActiveSheet は省略されています。
Sub CopyCols()
Range("P1", Cells(Rows.Count, "P").End(xlUp)).Resize(, 2).Copy _
Worksheets("Sheet2").Range("A1")
End Sub

この回答へのお礼

ご協力いただきありがとうございました！
ヒントをいただきなんとか自分で組み立てることが出来ました！

お礼日時：2018/10/21 02:17

No.1 回答者： googoo900 回答日時： 2018/10/20 19:43

P、Q列を別シートのA、B列にコピーするということですよね？

データのあるシートがアクティブな状態で下記のマクロを実行です。

Sub Sample1()
ActiveSheet.Range(Columns(16), Columns(17)).Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Paste
End Sub