[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『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.