Excel VBA質問箱 IV

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

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


26218 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんなのどう?

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

Application.ScreenUpdating = False

For iRow = 4 To Range("A1").End(xlDown).Row
  With Range("A" & iRow)
    If .Value = .Offset(-1).Value Then
      Range("A1:A2").EntireRow.Copy
      .Offset(1).EntireRow.Insert xlDown
      iRow = iRow + 1
    End If
  End With
Next iRow

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

1 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 お礼

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