[[20080611115317]] 『1000行ほどあるデータ』(masa) ページの最後に飛ぶ

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

 

『1000行ほどあるデータ』(masa)
 1000行ほどあるデータに、1行おきに新しい行を挿入したいのですが、
手作業だと時間がかかりすぎるので、マクロで処理できる方法があれば教えていただきたいです。


 [御参考]これでは駄目ですか?
[[20030704141821]]『1行おきに空白行を入れたい』(カツ)
 (dack)

一行ずつ、ずらす方法ですね。

そのとおりに試してみました。

範囲の決め方が上手くいきませんでした。

E列(5列)まであるデータの場合の式は、どうなるんですか?

masa


 [御参考]これならマクロを実行した後に1行目を消すだけ(でも範囲って?
[[20040915112925]]『1行毎に行を1行挿入したい』(み)
 (dack)

すげ〜・・・びっくりしました。
ありがとうございました。

(範囲とは、イフ関数でしたので)

もうひとつ!
応用でできるのなら教えていただきたのですが、
今、各行に空白の行を挿入するマクロでしたが、行コピーの動作に変えられますか?

上から1234・・のデータならば、11223344というふうに。
10列以上あるデータです。

masa


 なかなかレスがつきませんね。
 ちょっと意味が分からないのかもしれません・・・。

 dackさんのリンク先のどこかに出ているかもしれませんが
	[A]
[1]	イ
[2]	ロ
[3]	ハ
 こんな状態だった場合、
 B列に連番を振ります。
 B1に「1」を入力した後フィルドラッグ。
(値が増加しない場合は、Ctrlキーを
 押しながら マウスを離してください。)

 	[A]	[B]			[A]	[B]
[1]	イ	1		[1]	イ	1
[2]	ロ	2		[2]	イ	1
[3]	ハ	3		[3]	ロ	2
[4]	イ	1		[4]	ロ	2
[5]	ロ	2		[5]	ハ	3
[6]	ハ	3		[6]	ハ	3
 B1:B3に連番がついたら、A1:B3をコピーして、
 A4から貼り付け。
 その後、B列で並べ替えをすると
 右の様になるので、B列を削除。

 (HANA)

 [御参考]まだまだですね私。。。
 Sub コピー行挿入()
 Dim MyRow As Long, r As Long
 r = Range("A65536").End(xlUp).Row
     For MyRow = r To 1 Step -1
         Rows(MyRow).EntireRow.Copy
         Rows(MyRow).EntireRow.Insert Shift:=xlToRight
     Next
     Application.CutCopyMode = False
     Range("A1").Select
 End Sub
 (dack)


一行を二行ずつのデータに置き換えれました。

ありがとうございました!!


コメント返信:

[ 一覧(最新更新順) ]


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