- ベストアンサー
特定文字列から空白行までの抽出
n-junの回答
- n-jun
- ベストアンサー率33% (959/2873)
n-junです。 Sub try2() Dim r As Range Dim rr As Range With Worksheets("Sheet1") ' データのあるシート For Each r In .Range("A6", .Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlCellTypeConstants, 3).Areas Set rr = r.Offset(1).Resize(r.Rows.Count - 1, 2) rr.Copy Worksheets(r.Item(1).Offset(, 1).Value).Range("B8") Next End With Set rr = Nothing End Sub こちらならどうでしょうか。
関連するQ&A
- セル内文字を切取りその行範囲の列の空白セルに貼付
B列3行目から添付のようにセル内にカンマを含む文字がありカンマで区切った文字ごとに切り取り矢印右のように同B列の次の空白行に順に貼り付けたく、その際カンマは削除したいです。また等間隔の名前の行がある中で枠内の空白に文字を張付けたく等間隔行数枠が多くてできればVBAコードがお分かりなる方宜しくお願いします。 環境はwindows7 office2013です。
- ベストアンサー
- Word（ワード）
- 特定の列の最初にあるデーター抽出
Sheet1のB5からB65までのセルにランダムで数字が入れてありますが必ずどのセルにも数字が入っているわけでは無く空白のセルも数字の入ったセルも混在しています。 この列の最後の数字をSheet2の任意のセルに抜き出すには、Lookup関数でできますが、列の最初の数字を抜き出すにはどのような関数で行えるのか教えてください。
- ベストアンサー
- その他MS Office製品
- Excelで空白行を削除したい
2500行位使用しているシートのなかに、どのセルも空白になっている不要な行が300行くらい混ざっています。 この行を自動的に削除するにはどうすれば良いでしょうか。 ただ、その行のA～Eセルは空白でもFセルに値が入っているなど完全に空白でない行は削除できません。 メニュー、関数、VBAなど有れば教えてください。
- ベストアンサー
- オフィス系ソフト
- EXCEｌで特定の文字列の行をコピー
下記のようなシートがあります。 列A～K 行1～80程度 列は変わることがありません。 行はデータ量によって40～80くらいまで変動します。 この中の特定の行をコピーして他のシートにペーストしたいのです。 コピーしたい行のK列は430という数字が入ります。 K列には430以外の数字も入ることがあります。 また、コピーしたい行の範囲は「開始」という文字列から「小計」 と言う文字列の間です。(小計の後の行にも430という数字が出てきます） マクロを使えば出来ると言うことは聞いたのですが、ヘルプを見ても よくわかりません。 わかる方いましたら是非ご教授下さい。
- ベストアンサー
- オフィス系ソフト
- エクセルで文字最終行の空白セルへ移動
エクセル２０００です。 １０００行内で間にとびとび（順不同）に空白セル、他は文字有りです。 （１０００行目は文字あり） シートが１０個あり、各シートともばらばら（ウィンドー枠固定位置）ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル（ＡからＺ列のいずれか）へ移動したいです。 方法がありますでしょうか？ ＶＢＡの場合、素人につきＶＢＡへの入力方法等も一緒にお願いします。またＶＢＡの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。（立ち上がり時のマクロ警告はあり） よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- セル内文字を切り取りその列の空白セルに貼付け
B列3行目から添付のようにセル内にカンマを含む文字がありカンマで区切った文字ごとに切り取り矢印右のように同B列の次の空白行に順に貼り付けたく、その際カンマは削除したいのですが行数が多くてできればVBAコードがお分かりなる方宜しくお願いします。 環境はwindows7 office2013です。
- ベストアンサー
- Excel（エクセル）
- EXCELで文字検索したセルの行と前後の行の削除の方法
EXCEL-VBAを使ってワークシートのデータ整形をしています。 ある文字列を検索し、その文字列を含む行とその前後の行を削除するロジックを記述したいのですがうまくできません。 例：検索文字列「合計」、"合計"の入っているセル「B120」のとき、B119～B121の３行分の行削除をしたい。 おそらく検索された文字列を含むセルの行番号を取得してその番号-1と+1の行を選択して削除すればよいのではないかと思ってるのですが、もっと良い方法があるのでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2002で、ある列が空白なら、その空白のある行は削除する方法
エクセル2002で、 ある列に空白のセルがあった場合、その行を削除する方法を教えてください。 例えば、Ｂ列を選択して、 編集、ジャンプ、セル選択、空白セル、ＯＫとたどって、 セルＢ１１、セルＢ２２、セルＢ３３が空白セルなら、 １１，２２，３３の行を削除する方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- 文字列を指定して2行へ移動
シート1のA列に下記のデータが入力されています。 11-1111あああああ 22-2222いいいいいい 33-3333ううううう 44-4444えええええええ ↓ シート２のA1セルに「11-1111」A2「あああああ」 B1に「22-2222」B2に「いいいいいい」 C1に「33-3333」C2に「ううううう」 と3列に繰り返し文字列を移動することは可能でしょうか？ 「11-1111」と「あああああ」のフォント数も違います。 シート１のA列には実際、かなりのデータの量があります。 VBAはまったくわからないのでできたら関数で解決できたらと思います。 わかりにくい説明ですみませんが宜しくお願いします。
- 締切済み
- Windows XP
- エクセル セル内の文字列を空白から空白まで抽出したい。
一つのセルに入っている文字列を複数のセルに分割したいのですが良い方法が見つかりません。 具体的には 「商品名 単価 数量 金額」が一つのセルに入っているのですが、これをそれぞれ「商品名」「単価」「数量」「金額」というように別のセルに分けたいのです。 条件は次です。 ・文字列の区切りは空白(スペース)。 ・商品名や金額などそれぞれの文字列の長さは決まっていません。 ・商品名には名称の中に空白が使われている場合があります、その数も決まっていません。 以上です。いろいろ関数を使ってやってみたのですが、どうもうまくいきません。 どなたか良い方法がありますでしょうか、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
補足
何度もありがとう御座います。 rr.Copy Worksheets(r.Item(1).Offset(, 1).Value).Range("B8") で止まってしまいます。シートレイアウトの伝え方がまずいのだと思います。 ファイルをアップ致しました。 http://www.geocities.jp/hartpopoo/test.xls この中でシート名に"H"を追加しておりますが、敢えて別名にすることが便利だと考えました。 （手動で”北棟２”の範囲を”北棟２Ｈ”のシートのB8以下へ貼り付けしました）、他のシートにも同様に該当する（当てはめる）シートのB8へそれぞれデータを貼り付けたいと思っております。よろしくお願いします。