[[20160530221412]]　『コピーをまとめてしたい』（pinkfloyd）　ページの最後に飛ぶ

『コピーをまとめてしたい』（pinkfloyd）

A2 2/1 A3 ～A19空白
E2 2/2 E3 ～E19空白
I2 2/3 I3 ～I19空白
M2 2/4 M3 ～M19空白

A21 2/5 A22～A38空白
E21 2/6 E23～E38空白
I21 2/7 I23～I38空白
M21 2/8 M23～M38空白

A40 2/5 A41～A57空白
E40 2/6 E41～E57空白
I40 2/7 I41～I57空白
M40 2/8 M41～M57空白

A3 ～A19空白にA2の日付2/1をコピー
以下同様にすべての空白をコピーしたいのですが、大量にデータがあるため
ひとつずつコピーだとかなり時間がかかってしまいます。
できるだけ短時間でコピーする方法はないものでしょうか？
A2E2I2M2などの１ブロック単位内で一括コピーできるだけでもかなり助かる
のですが。
マクロＶＢＡは知識がないので、関数程度のレベルでお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

すべてA列にまとめても大丈夫ですが、厳しいでしょうか。
E2をA19の下に1行空白を設けてA21に移動させ、A22～A38にコピーという感じです。
完成型はA列に日付18行　空白1行　日付18行　空白1行・・・・・です。
よろしくお願いします。
（pinkfloyd） 2016/05/31(火) 02:48

 おはようございます。

 一括でコピーは無理です。

 代わりにこれも一括では無いですが、手順は少し簡略出来ると思います。(2回目以降はコピペの必要もありません)
 A3セル =A2
 A19セルまでオートフィル
 A3～A19を選択してコピー
 貼り付けたいセル範囲の一番上のセルを複数選択(E3,I3,M3,A22,E22,I22,M22,A41,E41,I41,M41)
 貼付

（sy） 2016/05/31(火) 06:18

 そもそも、最初に飛び飛びに日付を入力する、その操作をどのようにしておられるのか それが不明ですが、
 その時に１つのセルに入れるのではなく、１８セルを選択して Ctrl/Enter で入力すれば
 最初から空白なしで１８セルに同じ日付が入ると思いますが？

 後から言われた A列にすべてをまとめるということなら

 A3 : =IF($A$2="","",IF(MOD(ROW()-1,19)=0,"",$A$2+INT((ROW()-2)/19)))

 これを、必要なだけ下のほうにずずずずずっとフィルコピーしておけば A2 に日付を入れるだけで
 各ブロックごとに日付がセットされますね。

 A2 の日付をかえれば全体がかわります。

（β） 2016/05/31(火) 09:54

 >A2E2I2M2などの１ブロック単位内で一括コピーできるだけでもかなり助かる

 う～ん、2行目から20行目までを行選択してCtrl+D？
 でも間の列には何かデータが入ってるんですよね？埋まっているなら空白セルのみ
 ジャンプで選んで上のセルを参照させるとかもできますが。
 表の全体像が知りたいところです。
（コナミ） 2016/05/31(火) 11:40

syさん、出来ました。ありがとうございます。
＝・コピー・貼り付けで出来てしまうんですね。
全く考え付きませんでした。
作業時間かなり短縮できました。
ありがとうございました。
（pinkfloyd） 2016/05/31(火) 13:27

βさん、ありがとうございました。
前任者が日付行の後に17の空白行を設けそこに別ファイルからデータを持ってきた等諸々の経緯があって、
現状各行に日付がないことによるミスが生じており、応急的に全行に日付を入れたかったということです。
ご教授いただいた数式、どうしても＃VALUEとなってしまいます。
実は日付の後に作業者のイニシャルが入っています。それがエラーの原因かもしれませんが、今は時間がないので今回はsyさんのやり方ですすめました。
いづれは作り直すつもりですので、またお世話になるかもしれません。
ありがとうございました。

（pinkfloyd） 2016/05/31(火) 13:45

コナミさん、おっしゃる通りデータが入っています。
とりあえず今回はsyさんの手法で進めています。
またお世話になりかもしれませんのでお願いします。
有難うございました。
（pinkfloyd） 2016/05/31(火) 13:48

コメント返信：

[ 一覧(最新更新順) ]

[[20160530221412]] 『コピーをまとめてしたい』（pinkfloyd） ページの最後に飛ぶ

[[20160530221412]]　『コピーをまとめてしたい』（pinkfloyd）　ページの最後に飛ぶ