Excel VBA質問箱 IV

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

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


26211 / 76738 ←次へ | 前へ→

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

引用なし
パスワード
   ▼taro さん:
> 下記のような形です。

ちがってたらごめんなさい。

下から挿入
 Dim c As Range
 Dim i As Long, LastRow As Long
 
 Set c = Rows("1:2")
 LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 For i = LastRow To 4 + 1 Step -1
  If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
    c.Copy
    Rows(i).Insert
  End If
 Next
 Application.CutCopyMode = True

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

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