• ベストアンサー

Excelで入力済データを維持しつつ行パターン変更

tsubuyukiの回答

  • ベストアンサー
  • tsubuyuki
  • ベストアンサー率45% (699/1545)
回答No.3

> 機械的な作業ですので、大変でないやり方がありましたら ご自身でマクロを組めたら一番早いんですけどね。 まぁ、いわゆる「単発処理」でしょうから、とりあえず一例として。 質問文中の添付図のように「3行目から実データがある場合」が前提です。 まずは Sub sample1() Dim i As Long   For i = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1     Rows(i & ":" & i + 1).Insert   Next End Sub 上記を走らせると「2行ずつ挿入」されますので、 3:5行目にお好みの罫線を引くなり、セルを結合させるなりやってください。 引けたら(マスターとなる書式が整ったら)以下 Sub sample2() Dim i As Long   Rows("3:5").Copy   For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row Step 3     Rows(i & ":" & i + 2).PasteSpecial Paste:=xlPasteFormats   Next   Range("A1").Select   Application.CutCopyMode = False End Sub コレを走らせると、全ての行に同じ書式が付きます。 一応、参考までにどうぞ。

trickyhel
質問者

お礼

回答ありがとうございます。 すみません、初心者なもので、マクロというものを初めて使いました。 最初の方だけ半端に作りかえたい形に作ってありましたので、作っていただいたマクロの数字を少し自分で組み替えたらできました。 分かりやすい説明をありがとうございました。

関連するQ&A

  • エクセルで数行おきにデータを抽出

    エクセルシートで、あるデータ膨大にを出しますよね。 それで、たとえば、三行ごと、四行ごととかであるデータを右の行もしくは左行に抜き出す操作をするにはどうしたらいいですか? 今は、フィルタと可視フィルタを駆使してやっているのですが、一発でバンと出すような方法があると思って・・・数式とかでありそうだなって思って。 教えてください。、

  • エクセルのデータが重いのはなぜ?

    会社の経理のデータなのですが、エクセルで作成した、ひとつのファイルが20Mぐらいあります。 特にマクロデータを使用しておらず、単純な計算式しか使ってません。また画像が貼り付いてもいません。 気になるのが、罫線が列全体にかかっている箇所がいくつかあり、右のスクロールバーが下の方までデータがあるかのように、非常に短くなってます。もちろん、データは100行くらいまでしかありません。 この辺りもデータの重さと関係しているのでしょうか?

  • エクセルのデータが重いのはなぜ?

    会社の経理のデータなのですが、エクセルで作成した、ひとつのファイルが20Mぐらいあります。 特にマクロデータを使用しておらず、単純な計算式しか使ってません。また画像が貼り付いてもいません。 気になるのが、罫線が列全体にかかっている箇所がいくつかあり、右のスクロールバーが下の方までデータがあるかのように、非常に短くなってます。もちろん、データは100行くらいまでしかありません。 この辺りもデータの重さと関係しているのでしょうか?

  • エクセルの行と列の入力項目の入れ替え

    仕事で表を作ろうとしてランダムに行と列に入力項目を設定してデータを入力していったところ列の項目が多くなりすぎました。データは単なる数字ではなく文字列(漢字10程まで)を入力したいのです。 表をなるべく一枚に印刷したいので行と列の入力項目の入れ替えを行いたいのです。エクセルは簡単な知識しかありません。もしかしたら簡単にできる方法があるのかもしれません。よろしくお願いします。

  • excelで2行を1行に

    excelで2行の罫線枠中に上段:空白、下段:文字列とか、上段:文字列、下段:文字列のように様々な罫線枠内を1行に結合したいのですが、 ○○┌────┬────┬─────┬── 1行 │(空白)│文字列 │(空白) │ 2行 │ 文字列 │文字列 │ 数式 │ ○○└────┴────┴─────┴── この形式が数段、数シートに渡ってあります。 ○○┌────┬────┬─────┬── 1行 │(空白)│文字列 │(空白) │ ○○│ 文字列 │文字列 │ 数式 │ ○○└────┴────┴─────┴── 上記のように1行に上下に結合したいのですが、こんなことできるのでしょうか。 何卒、ご教授下さい。

  • エクセルの横からのデータ抽出

    エクセルの データ → フィルター → オートフィルター を使用すると、行の一番先頭に▽マークが出てきて、列データの抽出をすることができますが、逆は可能なのでしょうか? すなわち、列の一番左部分に右横向き▽マークが出て、行のデータ抽出を行うということは、可能なのでしょうか?

  • Excelで、同一データ行を知るには

    Excel2000で、 A列からD列までまったく同じデータの場合、色をつけてくれる方法を教えてください。 例えば、 A20=A100 かつ B20=B100 かつ C20=C100 かつ D20=D100 の場合、同じデータとして、20行目と100行目に色をつけるようにしたいです。 次善の策として、 A列からD列だけでなく、E列以降もすべてまったく同じデータの場合でもいいです。 なお、ソートしたり、行の順番を変えるのはナシにしてください。 また、A列からD列のデータをくっつけるのも、できれば避けたいです。(それぞれの列を比較して異なる場合でも、くっつけたら同じになる場合もありうるので。)

  • エクセルで、印刷プレビューで行の高さを変えたい

    エクセルで、罫線を引いて表を作るとします。 印刷プレビューで、「余白」というボタンを押しますと、 余白(マージン)を変えられるのはもちろん、縦の罫線の間隔(列の幅)は変えられるんですが、 なぜか横の罫線の間隔(行の高さ)が変えられません。 (印刷プレビューでなくて)通常の表示状態で横の罫線の間隔(行の高さ)を変えることはできます。 しかし、印刷される状態を見ながら、行の高さを変えたいので、 印刷プレビューで行の高さを変えたいのですが、どのようにすればよいでしょうか。 #もともとそのようなことはできないのでしょうか? (・_・")? バージョンは、EXCEL2000です。 (関係ないと思いますが、Windows98SEです。)

  • Excelで列に入っているデータを行に展開する方法

    添付画像のように、Excelシート上のA列に、店名、住所、電話番号が全て入っている状態を、A列に商店、B列に住所、C列に電話番号というように振り分けたいです。 シート上のデータは、既に振り分けてあるものと振り分けていないものが混在しています。 振り分けていないものは、店名と電話番号だけ、店名と住所と電話番号といったパターンがあります(他に、店名とメールアドレスだけの様なパターンも)。 店名+電話番号、店名+住所+電話番号 のパターンはある程度かたまっているため、Sheet上で範囲を手動で選択して、行への展開を実行したいと思っています。 関数かVBAで効率よく実行する方法を教えてください。 Excel2010です。

  • Excelの行挿入で

    Excelのシートにデータがつまっているのですが(これから新しく表を作るということではないということです。)、行の挿入をしたいのです。 このとき、行を選択して、右クリックで「挿入」を選べば挿入自体はできます。 しかし、 既にある表は、行が、A列とB列が結合されているのですが、 単に上記のように挿入すると、 A列B列が分かれている行が挿入されてしまいます。 新しく挿入された行のA列とB列を選択して、「セルの書式設定」の「配置」でセルを結合させてもいいのですが、 いちいちそうしなくても 挿入時点ですでに結合されているようにするにはどうすればよいですか。 (Excel2000)