Excel VBA質問箱 IV

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

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


36804 / 76732 ←次へ | 前へ→

【45104】指定した横行を縦列に貼り付けるには
質問  新米T  - 06/12/12(火) 20:46 -

引用なし
パスワード
   最近度々御世話になり、大変助かっています。
今回の質問は、「シート1」でアクティブセルのある行の指定した(1:100)の範囲を「シート2」の指定した(CM1:CM100)に貼り付けたいのですが。どうしたらいいのでしょうか。
私なりに下記のように作ってみたのですが、CM列に延々と繰り返し書き込んでしまいます。
どうかよろしくお願いします。


Private Sub CommandButton1_Click()         

Dim PrintMenu As Long
Dim r As Range
Dim ws1 As Worksheet, ws2 As Worksheet
  Set ws1 = Worksheets("シート1")
  Set ws2 = Worksheets("シート2")

  With ws1
   ActiveCell.Activate       
    For Each r In Selection

      If r.Row > 1 And .Range("A65536").End(xlUp).Row >= r.Row Then
         ws1.Rows(r.Row).Select
         Selection.Copy
        ws2.Select
        Columns("CM:CM").Select         'CM列に貼り付け
        Selection.PasteSpecial :=xlPasteValues,Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
       
  End If
Next r  
End With 
End Sub
1 hits

【45104】指定した横行を縦列に貼り付けるには 新米T 06/12/12(火) 20:46 質問
【45106】Re:指定した横行を縦列に貼り付けるには Kein 06/12/12(火) 22:11 回答
【45111】Re:指定した横行を縦列に貼り付けるには 新米T 06/12/13(水) 6:46 お礼
【45124】Re:指定した横行を縦列に貼り付けるには Kein 06/12/13(水) 13:27 発言
【45139】Re:指定した横行を縦列に貼り付けるには 新米T 06/12/13(水) 16:18 お礼
【45107】Re:指定した横行を縦列に貼り付けるには ponpon 06/12/12(火) 22:22 発言
【45112】Re:指定した横行を縦列に貼り付けるには 新米T 06/12/13(水) 6:54 質問
【45138】Re:指定した横行を縦列に貼り付けるには ponpon 06/12/13(水) 16:16 発言

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