Excel VBA質問箱 IV

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

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


51911 / 76732 ←次へ | 前へ→

【29671】Re:列と行を入れ替えてコピーする
回答  座布団  - 05/10/11(火) 15:32 -

引用なし
パスワード
   >例:
>シート1のA1に金額、A2に個数が入っているとする。
>(それが永遠とA列に300行にそんな感じで入っているとする・・・)
>で、シート2のA1にシート1のA1を貼り付け、B1にシート1のA2を貼り付け。
>
>これでわかりますか?
>上記の例だとシート1のA9のデータはシート2のA5、A10はシート2のB5に貼り付く

単純にアルゴリズムの話しだと思いますが、
基本的な処理は以下のような感じになると思います。

Private Sub Seiretu()
  Dim s1row As Long 'シート1の操作先の行番号
  Dim s2row As Long 'シート2の操作先の行番号

  s1row = 1
  s2row = 1
  
  While (Sheet1.Cells(s1row, 1).Value <> "")
    Sheet2.Cells(s2row, 1).Value = Sheet1.Cells(s1row, 1)
    Sheet2.Cells(s2row, 2).Value = Sheet1.Cells(s1row + 1, 1)
    
    s1row = s1row + 2
    s2row = s2row + 1
  Wend
End Sub

いかがでしょうか。

0 hits

【29670】列と行を入れ替えてコピーする あさこ 05/10/11(火) 15:13 質問
【29671】Re:列と行を入れ替えてコピーする 座布団 05/10/11(火) 15:32 回答
【29676】Re:列と行を入れ替えてコピーする あさこ 05/10/11(火) 16:40 質問
【29685】Re:列と行を入れ替えてコピーする ichinose 05/10/11(火) 19:46 発言
【29716】Re:列と行を入れ替えてコピーする あさこ 05/10/12(水) 14:41 お礼
【29714】Re:列と行を入れ替えてコピーする 座布団 05/10/12(水) 14:10 回答
【29717】Re:列と行を入れ替えてコピーする あさこ 05/10/12(水) 15:08 お礼

51911 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free