Excel VBA質問箱 IV

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

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


27965 / 76732 ←次へ | 前へ→

【54080】Re:条件付 行のコピー貼り付け
発言  ponpon  - 08/2/23(土) 20:01 -

引用なし
パスワード
   おかしいな。
こちらでは、ちゃんとコピペできてるんですが・・・
1回目と2回目では微妙に違うのですが・・・
こうしたら?

Sub test()
  Dim i As Long
 
  Application.ScreenUpdating = False

  For i = 2 To Range("D" & Rows.Count).End(xlUp).Row
    If Cells(i, 4).Value <> 1 And Cells(i, 5).Value = "" Then
      Cells(i, 4).Offset(, -3).Resize(, 5).Copy Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(Cells(i, 4).Value - 1)
     End If
  Next
  Application.ScreenUpdating = False
End Sub

0 hits

【54065】条件付 行のコピー貼り付け 裕香 08/2/22(金) 16:20 質問
【54068】Re:条件付 行のコピー貼り付け ひげくま 08/2/22(金) 17:34 発言
【54069】Re:条件付 行のコピー貼り付け 裕香 08/2/22(金) 18:44 質問
【54070】Re:条件付 行のコピー貼り付け ponpon 08/2/22(金) 23:04 発言
【54073】Re:条件付 行のコピー貼り付け 裕香 08/2/23(土) 9:00 質問
【54074】Re:条件付 行のコピー貼り付け ponpon 08/2/23(土) 10:37 発言
【54076】Re:条件付 行のコピー貼り付け 裕香 08/2/23(土) 13:26 質問
【54078】Re:条件付 行のコピー貼り付け りん 08/2/23(土) 18:04 発言
【54093】Re:条件付 行のコピー貼り付け [名前なし] 08/2/24(日) 10:49 お礼
【54080】Re:条件付 行のコピー貼り付け ponpon 08/2/23(土) 20:01 発言
【54094】Re:条件付 行のコピー貼り付け 優香 08/2/24(日) 10:53 お礼

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