• ベストアンサー

Excel VBA2007について

sheet上の 行で指定した一部のセルを抽出する方法があったら教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • FEX2053
  • ベストアンサー率37% (7987/21355)
回答No.1

セルA1に「B1」と書いてあって、B1の内容を引っ張りたいと 言われるなら、単純に変数に取り込めばいいだけですが。 DIM DATA_A1 as string DIM DATA_B1 as Variant DATA_A1=Cstr(RANGE("A1").value) DATA_B1=RANGE(DATA_A1).Value こういう感じで取り込めますけど。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. 学問・教育
  3. その他（学問・教育）

関連するQ&A

  • エクセルVBA

    エクセルの一部セルを指定してマクロで、新しいブックにコピーしたいと思っています コピー＆貼り付けの方法は知っていますが、ワンクリックの方法（指定範囲が広いため）を考えています 色々とＶＢＡの専門書を見ましたが、シートまるごとコピーは複数の書物に載っていますが、見られたくない部分もあります よろしくお願いします

  • エクセルＶＢＡでフィルタ抽出部分のみのコピー

    エクセルＶＢＡで売上帳を作成していますが、オートフィルタでデータ抽出した後、表示されている行のみをコピーして別シートに貼りつけるにはどうすればよいのでしょう？ 別シートは指定したセルに値のみの貼り付けをしたいと思っています。 宜しくお願いします。

  • エクセルVBAでのSQLについて

    エクセルVBAで、SQLを記述しているのですがwhereの抽出条件にセルの値を指定したいと思っています。その当該セルの値を変更することで、抽出条件を変更することができるようにしたいです。 しかし、どのような記述にすればよいか分かりません。以下のような記述をしたのですが、うまくいきません。すみませんが、教えていただけないでしょうか。よろしくお願い申し上げます。 ◆抽出条件を指定するセル：Ａ１　セルＡ１には、数字（例：1000、2000等）をいれます。 mySQL = " SELECT * FROM [◆◆シート!] WHERE Range("A1")"

  • EXCEL抽出？についてご指導ください。

    シート１にあるデータをシート２に抽出したいのですが・・・ シート1にあるデータの２列目と３行目で交差する「A」を シート２のＡ１セルに「２」Ａ２セルに「３」と入力すると 指定したセル（たとえばＢ１セルに「Ａ」と表示（抽出）させたいのですが、ご存知の方教えていただけませんか？ （シート１） 　　１　２　３　４　５ １ ２ ３　　 　A ４ （シート２） 　　Ａ　　Ｂ　　Ｃ １　２　　Ａ ２　３ ３ よろしくお願いします。

  • エクセル 関数 別シートへの抽出

    エクセル関数について質問します。 「数値の入ったセルだけを、その行ごと丸々別シートに抽出する方法」 について教えてください。 例、C列に空白セルと1、2や3など、数値の入ったセルがあります。空白セル以外の数値の入ったセルを、その行ごと別シートに抽出したい。 C3とC5に数値が入ってる→3行目と5行目を別シートに抽出する。 このようなことは関数でできるのでしょうか？ マクロでないと無理でしょうか？ お力をお貸しください。 よろしくお願いします。

  • Excel VBA　データの転記

    Excel2003を使用しています。 Sheet1のB1セルとSheet2のB1セルのデータが一致したら、Sheet2のB1セル～E1セルのデータをSheet1のF1セル～Iセルに転記するというコードを書いています。 Sheet1のデータ最終行を取得して、上記の条件を満たさなかったSheet2のB1セル～E1セルのデータをSheet1のデータ最終行の1行下から順に転記するという内容を追加したいのですが、転記先の指定の仕方が悪いのか、希望通りになりません。 どなたか一例を示していただけないでしょうか？ スマホからの投稿で、実際に書いているコードを記載できず、分かりづらくて申し訳ないのですが、よろしくお願いします。

  • エクセルVBAについて

    エクセルVBA初心者です。 以下のような処理をしたくて、色々な質問等を見て組み合わせて動かしてみたものの、なかなかうまくいかず困っております。アドバイスいただけないでしょうか？ 「Sheet1」に以下のようなデータがあります。 <A列>　<B列> <C列> ok59　 886 ok88 ok70 777 ok75 okGG 478 ok66 ok97 358 ok58 ok69 764 ok47 ok39 368 ok40 okGG 794 ok68 ok85 463 ok75 ・　　　　・ ・ ・　　　　・ ・ A列とC列にはそれぞれ「ok＋2桁の数字or文字」が入っています。 B列は特に今回は使わないデータですが、数字が入っています。 やりたいことは以下の通りです。 A列に「GG」を含む文字列（実質okGGしかない状態です）が出てきたとき、 その１つ下の行のA列とC列のセルをピックアップし、背景色をピンク色にします。 上の例だと、A列は「ok97」と「ok85」、B列は「ok58」と「ok75」のセルが該当します。 さらにピンク色にピックアップしたセルのから、頭の「ok」を除いた数字を3.5倍した数字を、 別のシートに抽出したいのです。 なので、上の例を使用した場合の抽出したデータは以下のようになります。 <A列> <B列> 339.5 203 297.5 262.5 ちょっと複雑なのですが、どのようにするのがよいのでしょうか？ また、別シートに抽出したいのですが、 「Sheet1」の特定のセルに日付が入っているので、 できればその日付の名前のシートを作り、そこに抽出できたらなぁ・・・と考えています。 「Sheet1」にデータを貼り付けて、ボタンをポンっとおしたら日付の名前のシートができて、 欲しいデータが抽出されていく・・・というイメージです考えています。 どうぞよろしくお願いします。

  • エクセルVBAのコードの書き方を教えてください

    エクセルVBAの初心者です。 下記①-⑲のようなコードを書きたいのですが、どなたかお分かりになる方がいましたら、 ご教示いただけますと幸いです。 ①　オートフィルターでシート[list]のA列に"●"がある特定の行だけを以下作業の対象にしたい ②　①で特定した行のE列セルの値を、シート[output]のB9セルにコピペする ③　①で特定した行のF列セルの値を、シート[output]のB12セルにコピペする ④　①で特定した行のG列セルの値を、シート[output]のB15セルにコピペする ⑤　①で特定した行のH列セルの値を、シート[output]のB18セルにコピペする ⑥　①で特定した行のI列セルの値を、シート[output]のB21セルにコピペする ⑦　①で特定した行のJ列セルの値を、シート[output]のB24セルにコピペする ⑧　①で特定した行のK列セルの値を、シート[output]のB27セルにコピペする ⑨　①で特定した行のL列セルの値を、シート[output]のB30セルにコピペする ⑩　①で特定した行のM列セルの値を、シート[output]のB33セルにコピペする ⑪　①で特定した行のN列セルの値を、シート[output]のB36セルにコピペする ⑫　①で特定した行のO列セルの値を、シート[output]のB39セルにコピペする ⑬　①で特定した行のP列セルの値を、シート[output]のB42セルにコピペする ⑭　①で特定した行のQ列セルの値を、シート[output]のB45セルにコピペする ⑮　①で特定した行のR列セルの値を、シート[output]のB48セルにコピペする ⑯　①で特定した行のS列セルの値を、シート[output]のB51セルにコピペする ⑰　①で特定した行のT列セルの値を、シート[output]のB54セルにコピペする ⑱　①で特定した行のU列セルの値を、シート[output]のB57セルにコピペする ⑲　シート[output]のB3：B59をテキストファイルを呼び出してコピペする ※このとき、上記②-⑱で記述したB9からB57のセルには改行が含まれる場合が 　あるため、テキストファイルへのペースト時に""が表示されてしまうが、 　もし可能であれば、この""が表示されないようにしたい。

  • エクセルVBAでのfor文

    エクセルVBAのfor文についての質問です A列のセルに抽出したタイトルが貼り付けられている状態で、そのA列のセルの名前で新規シートを作りたいのですが ・抽出される数が条件によって違うので、A列のセルの数が固定ではない ・1つの名前につき1つの新規シートの作成で、重複して作らない 重複してしまうとシート数が数百単位になってしまい、メモリ不足になると思うので重複は削除して作りたいのですが、この場合のfor文の宣言はどうなるのでしょうか？ 抽出される数が条件に応じて変わるのでいまいち分かりません。 （今までfor文は3や5などの指定数での経験しかありません） どうかお助けください

  • エクセルで指定した行数毎に行データを抽出したい

    いつもお世話になっております。 最近データ処理で何度も表題にある処理をしているのですが、何とか簡単にできないかと質問させて頂きます。 決まった書式のデータシートから、指定した行から指定した行までの間で指定した行数置きに別のシートに抜出したいのですが。 例えば、18行目から1500行目迄の間で、3行おきに抽出したい、というような感じです。 現在は、条件付き書式で＝MOD（ROW（）,３）＝１というような式でセルに着色して、色フィルタで不要な行を削除してそれを別シートにコピペして・・・ で何とか処理しています。 尚、贅沢を言えば、シート上の決まったセル（A1、B1、C1・・）に上記の条件（開始行、最終行、行間隔）を入力して、「新規Sheet」に抽出出来れば最高です。 また、例えば手作業で簡単に出来る作業（空白行を削除したシートで・・）等はその旨の条件付きで全くOKですのでよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する