- 締切済み
VBAでのデータの並び替え
A列～BV列までデータがあり、件数は5万件ほどあります。 要所、要所に空白行が入っているのですが、空白行から空白行までを1ブロックとして 計6ブロックできます。 1ブロック、1ブロックは同じ件数になるはずで、 それらを横につなげたいのです。 つなげ方は、上から数えて1番上のブロックはそのまま、2番目のブロックは1番目の横、3番目のブロックは2番目の横、 このような感じでどんどん横につなげて計6づロックあったデータをひとつにしたいのですが、 なにかいい方法ありませんか？ぜひアドバイスお願いします。 言い忘れたのですが、一番上は見出し、そのしたに空白行があります。
- ryutahayashi
- お礼率75% (24/32)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- mu2011
- ベストアンサー率38% (1910/4994)
因みにエクセル２００７以上ですよね。（エクセル２００３以下では最大列数が２５６なので不可能） 先ずは、マクロ記録でコピー＆貼り付け操作を記録しては如何でしょうか。 ２ブロック目のA列先頭セルを選択→Shft＋Ctrl＋*キー押下→コピー（カット）→１ブロック目のA列先頭セルを選択→Ctrl＋→キー押下、→キー押下→貼り付け、３ブロック目以降同様
関連するQ&A
- VBA 印刷について教えてください
シートにデータを日ごと入力しています。そのデータを印刷をかけたいのですが、その日ごとに件数が異なります。 １行目は、項目 その下からデータになります。 件数は２００件の時もあれば、３００件のときも・・・ そこで、VBAを利用して印刷をしたいのですが、１枚に４０件印刷をしたいのです。 １行は項目、４０行データ よって一枚に４１入る事のなります。 見出しの設定はわかります。 ２枚目は ４２から８２ ３枚目は ８３から１２２ という感じです 行は、ｋまで 用紙はA４横です どのようにVBAを組めばよろしいでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ ＶＢＡ
エクセルのマクロについて質問です。 『集計』というブックの『集計開始』というシートに Ａ列 Ｂ列 Ｃ列 １行目 見出し 見出し 見出し （商品名） （支店） （個数） ２行目 コメント 空白 空白 ３行目 空白 空白 空白 ４行目 商品名 支店 個数 ５行目 空白 空白 空白 ６行目 空白 空白 コメント１ ７行目 空白 空白 空白 ８行目 空白 空白 コメント２ ９行目以降 上記のデータ（見出しを除く）の繰り返し というデータが入っています。 Ｂ列の中に『ＡＡＡ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 Ｃ列の中に『Ｂ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 （今は、手作業で編集→置換→検索する文字列の中に『Ｂ*』と入力し、 置換後の文字列を空白にしてすべて置換ということをやっています。） ＡＢＣ列（データーの入っている行まで）の空白を含む行を一括削除し、 以下のような形にしたいのです。 Ａ列 Ｂ列 Ｃ列 １行目 見出し 見出し 見出し （商品名） （支店） （個数） ２行目 商品名 支店 個数 ３行目 商品名 支店 個数 ・ ・ このようにするマクロ文はどのようになりますでしょうか？
- 締切済み
- その他（プログラミング・開発）
- エクセルでデータの個数
エクセルで文字列のデータが入っている件数を把握する 方法を教えてください。 データは空白のものがランダムに入っていて、その列または 行の空白を除くデータの件数を把握する方法を教えてください。
- ベストアンサー
- Windows XP
- Excel2003でのVBA
WindowsXPでExcel2003を使っています。 Excelにある表をマクロを使って編集したいと思ったのですが、セルの選択の設定で教えてほしい事があります。 まず、横A列～F列、縦1行～6行までの表があります。 A1セルは、空白。 B1セル～F1セルには、1～5の数字が入っています。(見出しなので全て入ってます。) A2セル～A6セルには、a～eのアルファベットが入っています。(見出しなので全て入ってます。) 表の中のデータは、ところどころにしか入っていなくて、全て埋まっていません。 また、横A列～F列というのは固定なのですが、縦1行～6行までという行数は変動します。 この表で、A2セルからF6セルまでを選択したいのですが、行が変動するのでA6とかF6とかでは指定できません。 Range("A2").Select Selection.End(xlDown).Select これで、A2セル～一番下の行(ここではA6セル)まで選択した後、F列まで(列の数は固定です。)選択するにはどうしたらよいのでしょうか? 右下のセルは、空白なので困っています。 Range(Selection, Selection.Next).Select こんなものを考えましたが、これでは一つ右隣しか選択できません。 これを少しいじればいいのではないかと思うのですが、全然違う方法でもかまいません。 どなたか教えていただけないでしょうか? 宜しくお願いします。
- ベストアンサー
- Visual Basic
- エクセル データの並び替え
使用PC：DOSVマシン 使用OS：WinXP 使用ソフト：Excel2002 横(行)に、各セルに順番に日付、データ、日付、データ・・・と並んでいるものを A列：日付 B列：データにして、縦に転換したいのですが・・・ 図解 (1)横に各セルにこのように展開しています(区切り位置指定ウィザード使用後) 2002.3.1 190.15 2002.3.4 192.35 2003.3.5 193.48・・・ (2)これを、 A列：日付 B列：データ 2002.3.1 190.15 2002.3.4 192.35 2003.3.5 193.48 ・ ・ ・ ・ としたいんでごわす、ご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- 空白行削除
宜しくお願いします。 1枚のファイルシートに14ブロックのデータが貼り付けてあります。各ブロック行の長さは違く、ランダムに貼り付けてあります。例えば、データ 何百行の空白 データ…と繰り返されており、約3万5千行ぐらいあります。 空白行削除で多分半分近くまで上に詰められれば良いのですが、たくさんあるのでマクロで教えていただければと思います。ネットでころがってるデータ試してみたのですが(1部) ENDLESSに実行されて、出来てるのかどうかも確認はとれてません。ちなみに自分のシートに貼ってあるデータはA列からAS列まであり数字、文字混在です。また各ブロックの終わりは集計行となっており、空白セルがまじってます。宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセルの重複データ削除について
B列に重複している数値が3件あります。 1件のみ消して行は詰めない方法はありませんか データツールの重複データ削除をすると行が詰まってしまいます。 1件のみ表示し空白行にしたい。
- ベストアンサー
- Excel（エクセル）
- エクセル2013 マクロをご教示ください
Sheet1 4行目に見出し。 5行目A列からU列までデータが入力されています。 中には空白セルもあります。 1行目から4行目迄はロックされています。 5行目以降の、あるセルをアクティブにすると、 該当行のC列からS列迄を Sheet2のA列を先頭に 5行目にコピペするには どうしたら宜しいでしょうか？ Sheet2も4行目が見出しです。 Sheet1でのアクティブセルは 複数の場合もあります。 ただし、同じ行でセルを複数アクティブにしても Sheet2への貼り付けは1行とします。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
- Excel データの並び替え
以下のようにする方法がないでしょうか？ データベースのようにつかいたのです。 A列にデータをいれるとB列に自動で、 以下のようにならぶようにしたいです。 空白セルを飛ばし上から順番に並べかえたいのですが 方法はないでしょうか？不可能なのでしょうか？ 可能でしたらＢ列にいれる数式、関数をおしえてください。 A B C 1 ５ ５ 2 ４ ４ 3 ７ ７ 4 １ 5 １ ３ 6 7 ３
- ベストアンサー
- オフィス系ソフト
