Excel VBA質問箱 IV

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

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


73434 / 76732 ←次へ | 前へ→

【7773】Re:繰返し構文
回答  Kein  - 03/9/17(水) 16:25 -

引用なし
パスワード
   こんな感じで、どうでしょーか ?

Sub Test()
  Dim MyR As Range, C As Range
   
  Application.ScreenUpdating = False
  ActiveSheet.Copy After:=ActiveSheet
  For Each C In Range("J1", Range("J65536").End(xlUp))
   Set MyR = Range(C.Offset(, 1), C.Offset(, 246)) _
   .SpecialCells(2, 1)
   C.Copy
   MyR.PasteSpecial xlPasteValues, xlPasteSpecialOperationMultiply
   Application.CutCopyMode = False
   Set MyR = Nothing
  Next
  Application.ScreenUpdating = True
End Sub

0 hits

【7730】繰返し構文 三連休 03/9/16(火) 14:46 質問
【7733】Re:繰返し構文 INA 03/9/16(火) 15:19 回答
【7736】Re:繰返し構文 三連休 03/9/16(火) 16:18 回答
【7737】Re:繰返し構文 INA 03/9/16(火) 16:22 質問
【7750】Re:繰返し構文 三連休 03/9/17(水) 9:07 回答
【7752】Re:繰返し構文 INA 03/9/17(水) 9:40 回答
【7756】Re:繰返し構文 三連休 03/9/17(水) 11:29 お礼
【7771】Re:繰返し構文 三連休 03/9/17(水) 15:41 質問
【7772】Re:繰返し構文 INA 03/9/17(水) 16:11 回答
【7805】Re:繰返し構文 三連休 03/9/18(木) 16:04 お礼
【7806】Re:繰返し構文 三連休 03/9/18(木) 16:07 お礼
【7773】Re:繰返し構文 Kein 03/9/17(水) 16:25 回答

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