Excel VBA質問箱 IV

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

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


36802 / 76732 ←次へ | 前へ→

【45106】Re:指定した横行を縦列に貼り付けるには
回答  Kein  - 06/12/12(火) 22:11 -

引用なし
パスワード
   Private Sub CommandButton1_Click()
  Dim AR As Long
  Dim MyR As Range         
  Dim MyV As Variant

  If ActiveSheet.Name <> "シート1" Then Exit Sub
  AR = ActiveCell.Row
  Set MyR = Range(Cells(AR, 1), Cells(AR, 100))
  MyV = WorksheetFunction.Transpose(MyR.Value)
  With Worksheets("シート2")
   .Range("CM1:CM100").Value = MyV
   .Activate
  End With
  Set MyR = Nothing
End Sub

で、どうでしょーか ?

0 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 発言

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