[[20060801115156]]　『行に２行ずつ行挿入』（かおる）　ページの最後に飛ぶ

『行に２行ずつ行挿入』（かおる）

[マクロ利用になると思いますが、多大なデータの中でそれぞれの行に２行ずつ行挿入したいのです。仮にデータは1～5000行までです。どなたさまかご教授よろしくお願いします。]

 過去ログです。(ROUGE)
[[20040915112925]]『１行毎に行を１行挿入したい』（み）
Sub KAORU()
Dim i As Long
    For i = Range("A65536").End(xlUp).Row To 2 Step -1
        Rows(i & ":" & i + 1).Insert xlDown
    Next
End Sub

 うまく動いてくれれば、多少早くなると思います。

 Sub test()
 Dim i As Long, txt As String
 For i = 5000 To 1 Step -1
    txt = txt & i & ":" & i + 1 & ","
    If Len(txt) > 245 Then
       Range(txt,Len(txt)-1)).Insert
       txt = Empty
    End If
 Next
 If Len(txt) Then Range(Left(txt,Len(txt)-1)).Insert
 End Sub
 (seiya)

申し訳ないのですが、お教えいただいた２方法でマクロ実行してみたのですがうまくゆきませんでした。私のやり方がいけないのでしょうか。

 どううまくいかなかったのかを記載いただけませんか？
 (ROUGE)

失礼しました。
再度実行してみますとうまくきました。
(ROUGE)さんありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060801115156]] 『行に２行ずつ行挿入』（かおる） ページの最後に飛ぶ

[[20060801115156]]　『行に２行ずつ行挿入』（かおる）　ページの最後に飛ぶ