Excel VBA質問箱 IV

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

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


26215 / 76738 ←次へ | 前へ→

【55855】Re:特定の行を、任意の複数箇所に挿入・コピーする方法
発言  テト  - 08/5/21(水) 13:56 -

引用なし
パスワード
   失礼しました。
上記で載せたコードでは、不具合があったので訂正です。
これで出来ると思うんだけど…。

――――――――――――――――――――――――――――――
Dim iRow As Long

Application.ScreenUpdating = False
iRow = 5

Do
  With Range("A" & iRow)
    If Not .Value = .Offset(-1).Value Then
      Range("A1:A2").EntireRow.Copy
      .EntireRow.Insert xlDown
      iRow = iRow + 2
    End If
    iRow = iRow + 1

    If .End(xlDown).Row = Rows.Count Then
      Exit Do
    End If
  End With
Loop

Application.ScreenUpdating = True
Application.CutCopyMode = xlCopy
――――――――――――――――――――――――――――――

0 hits

【55845】特定の行を、任意の複数箇所に挿入・コピーする方法 taro 08/5/21(水) 11:32 質問
【55846】Re:特定の行を、任意の複数箇所に挿入・コ... テト 08/5/21(水) 11:54 発言
【55853】Re:特定の行を、任意の複数箇所に挿入・コ... taro 08/5/21(水) 13:47 発言
【55855】Re:特定の行を、任意の複数箇所に挿入・コ... テト 08/5/21(水) 13:56 発言
【55860】Re:特定の行を、任意の複数箇所に挿入・コ... taro 08/5/21(水) 14:18 お礼
【55849】Re:特定の行を、任意の複数箇所に挿入・コ... kanabun 08/5/21(水) 13:29 発言
【55852】Re:特定の行を、任意の複数箇所に挿入・コ... taro 08/5/21(水) 13:46 発言
【55859】Re:特定の行を、任意の複数箇所に挿入・コ... kanabun 08/5/21(水) 14:11 発言
【55861】Re:特定の行を、任意の複数箇所に挿入・コ... taro 08/5/21(水) 14:19 お礼

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