[[20060801115156]] 『行に2行ずつ行挿入』(かおる) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『行に2行ずつ行挿入』(かおる)

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


 過去ログです。(ROUGE)
[[20040915112925]]『1行毎に行を1行挿入したい』(み)
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)

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

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

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.