- ベストアンサー
VBA 検索方法
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
aa.xls と bb.xls は同時に開いてる。 両方とも対象は一番左のシートである。 って条件です。エラー処理はしてません。 Sub Test() Dim tr As Range, r As Range, i As Integer i = 1 With Workbooks("bb.xls").Worksheets(1) Set tr = .Range(.Range("A2"), .Range("A65536").End(xlUp)) For Each r In tr If r.Value <> "" And r.Offset(0, 1).Value = "" Then ThisWorkbook.Worksheets(1).Cells(2, i).Value = _ r.Offset(0, 1).Address(0, 0) i = i + 1 End If Next r End With End Sub
関連するQ&A
- エクセルVBAのプログラム
A.xlsからB.xlsのファイル（最初はA..xlsのみが開いています）へのデータ転送をしたいのですが、プログラムが組めません(>n<) すみませんが誰か助けてください。 行いたい作業は以下の通りです。 ※デスクトップにあるB.xlsを開く ※A.xlsのセル「A1～A5」をコピーしてB.xlsのAの列の列で空欄の行を見つけて、列と行を入れ替えて貼り付ける（もしB.xlsのA10までデータが入力されていたら、貼り付ける場所はA11～F11になります） ※B.xlsは作業終了後自動保存して閉じる その際に ※A.xlsのセル「A1」にはデータ名が記入されているのでB.xlsのAの列にその名前があれば、そこに上書きする形にしたい。 ※A.xlsのA2のセルには「55,23」のように二つの数字が「,」でつながって入力されているので、B.xlsに貼り付けるときには、二つのセルにわけてそれぞれの数字を貼り付けたい。 お手数おかけしますがよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- EXCEL- ＶＢＡ（CSVファイル→インポート）
Ａ列～Ｆ列になる複数（100個以上）のＣＳＶファイルをエクセルファイルにインポートして更に個別にエクセルファイルとして保存したいのですが ＶＢＡでできるのでしょうか？ 記憶マクロでやったらどうにもうまくいきません。 エクセルのＶＢＡについては ほとんど知識ゼロなので困っております。 大変厚かましくありますが どなた様かご教授お願いできたらと思います！！ 【元のファイルの状態】 ◆ファイル名「*.CSV」*は文字数それぞれ違います。 ＜例：tanaka.xls だったり 09福島.xls＞ ◆入っているドライブ TEXT;C:\Documents and Settings\ＡＡ＿Ｂ\デスクトップ\練習 ◆Ａ～Ｆ列にデータが入っている 【やりたいこと】 (1)Ａ～Ｆ列はカンマ区切りで全て文字列としたい (2)元のファイル名でエクセルとして保存したい「*.XLS」
- ベストアンサー
- オフィス系ソフト
- エクセル2003のVBAを教えて
エクセル2003のVBAを教えてください。 次の対象データで、(1)(2)(3)の作業が出来るエクセルVBAを教えて下さい。 (1)(2)(3)個々のVBAでお願いします。 ●対象データ：種類(A列)、文字(B列)、 データの行数：不特定なので、データのある最終行までとします。 ●教えていただきたい項目 (1)：種類だけを(C列)に取り出す。 (2)：種類の先頭に空白の行を3行入れて、追加の２行目の種類(A列)に文字(B列)を入れる。 (3)：種類が5行以上あるときは、5行ごとに空白行を追加する。 ●対象データ 種類(A列) 文字(B列) AA あああ BB いいい BB いい BB いいい CC うう CC うう DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ ●(1)のVBAの結果(このようになるVBAを教えてください。) (C列) AA BB CC DD ●(2)、(3)のVBAの結果(このようになるVBAを教えてください。) 種類(A列) 文字(B列) あああ AA あああ いいい BB いいい BB いいい BB いいい うう CC うう CC うう ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ DD ええええ
- ベストアンサー
- Visual Basic
- エクセルＶＢＡでテキストファイルにして保存する方法
エクセル「Sheet2」のA列、C列、D列にそれぞれ100個の文字列が入力されています。 B列は空欄になっています。 （作業内容） C列とD列のデータを結合して、B列に入力 A1～B100のデータを１つのテキストファイルとして保存する。 ファイル名はその都度指定する。 よろしくお願い申し上げます。
- ベストアンサー
- Visual Basic
- エクセル VBAでこれは難しいですか？
列 A B C D 行 1 T1 あ 1 2 2 T2 い 4 5 3 T3 う 7 5 分かりにくいかもしれませんが、上記のような表があるとします。ファイル名：AA.xlsとします。 ”行1”の「T1」や「あ」等はファイルにより違うとします。 1つのファイルの1シートにこういった表が改ページにより(ある領域で１，２ページとしている)たくさんあります。 これを必要な行、列をVBAで作成されたボックス？に入力方式で行、列を入力して、入力された例えば"B"列が削除され、その部分は左詰にされ、そのファイルが新しく別のファイル名で例えばAB.xlsが自動的に作成することは可能でしょうか？ 手順としては １ ファイルにより必要、不要な列・行が違うのであらかじめ削除する列・行を確認する。(このファイルをA1.xlsとする) ２ 実行したいファイルを参照で（任意のフォルダに進めるよう）読み込めるようにしたVBAを開き、A1.xlsを選択する。 ３ 削除したい列・行を入力できる窓があり、そこに打ち込む。 ４ 削除した列・行のスペース分左詰め、上詰めにされたA2.xlsというファイルが同一フォルダ内に作成される。 VBAは全くの初心者で、インターネットで勉強を始めようとしている青二才です。 最終的にはこれ以上のことをしたいですが、まずは最低限これをしたいです。 余談ですが、これができるようになるためにはやはり一から勉強をするしかないのでしょうか？ 今したいことがずばり載っている入門書のそのページだけ勉強しても不可能でしょうか？ ・PS3のあるゲームのキャラクターの必殺技のコマンドを覚えても、まずPS3をどうやって起動するのか？ という考えと一緒でしょうか？
- ベストアンサー
- Visual Basic
- 【VBA】同一ディレクトリ内のファイル名取得とA列
【VBA】同一ディレクトリ内のファイル名取得とA列、B列のコピペ A.xlsに同一ディレクトリ内にあるyyyymmdd.csvファイルを順に読み取り A.xlsの A1に対象ファイル名 B列に対象ファイル内のA列をコピペ C列に対象ファイル内のB列をコピペ 次のファイルはD1 その次はG1 ・ ・ といった処理をさせたいです。 どのように記述すればよいでしょうか。 よろしくお願いしますm(._.)m
- ベストアンサー
- Visual Basic
- エクセルVBAについて (データのマッチング)
過去ログで解決できなかったのでここに書かせていただきます。 エクセルのＶＢで下記のプログラムを作成したいのですがうまくマクロが組めません。 ファイル名：TEST01.xls ファイル名：TEST02.xls があります。 TEST01.xlsにあるＡ列のデータとTEST02.xlsのＡ列にあるデータが一致したおり、かつTEST02.xlsのＤ列のデータが『×』の場合のみ、TEST01.xlsのＢ列に固定の文字(test)を入力し、TEST01.xlsのＣ列に入力されているデータを削除するプログラムを作りたいです。 ご存知の方がいらっしゃれば、ご教授よろしくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセル２０００マクロ検索方法
Ａのファイル a.xls シート名 aaa Ｂのファイル b.xls シート名 bbb Ａのファイルに下記のデータベースがあります。 Ａ列 Ｂ列 0001 100 0002 200 0004 300 Ｂのファイルに下記のデータベースがあります。 Ａ列 Ｂ列 0001 300 0002 200 抽出条件方法 ＡのファイルとＢのファイルのＡ列を参照して違うものだけを、Ａのファイルから 別のファイルに取り出す方法をマクロでの記述方法を教えてください。 別のファイルに取り出すデータは、下記の通リです。 Ａ列 Ｂ列 0004 300 以上よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- excelVBA でA＋Ｂ列をファイル書き出し
excel2003の VBA で、開いているシートのA列（項目行）とＢ列（データ）を抜粋してＢ列の1行目のセルに入力されているデータをファイル名として新しいEXCELファイル（Ｂ列の1行目のセルに入力されているデータ.xls）として書き出したいのです。また、Ｂ列以降も、Ａ列＋Ｃ列で１ファイル、Ａ列＋Ｄ列で１ファイル・・・のように列にデータが記載されているまでファイルとして書き出したいのです。 このような書き出しVBAを教えて下さい。宜しくお願いします。
- ベストアンサー
- Visual Basic
- VBAについての質問です、お願いします。
ＶＢＡ初心者のものです。 Excelで毎日コピペが大変なので、ＶＢＡをネットで調べるもののまったく上手くいきません。 どうかシステムが得意な方、教えて頂けませんか？ 要件は Ｂデータ.xlsとＣデータ.xlsとＤデータ.xlsｔとＥデータ.xlsの各sheet1のＡ１からＺ１００セルの データをＡデータ.xlsのsheet1に各データ順にコピー＆ペーストしてならべたいのです。 イメージは、 Ａデータのエクセルを開いて、マクロボタンを押す。 そうすると、各Ｂ・Ｃ・Ｄ・Ｅのエクセルが自動的に開いてそれぞれのsheet1のＡ１からＺ１００セル をコピーします。 各Ｂ・Ｃ・Ｄ・Ｅのエクセルが自動的に閉じます。 各Ｂ・Ｃ・Ｄ・Ｅのエクセルの各データが、 Ａデータのsheet1に、すべてのデータが順にコピーされる手順です。 できれば、ファイルサーバーにエクセルを保存しているので、 その点も加味いただけると嬉しいです。 （初心者なので、マクロの構文を書いて頂ける場合に、ファイルとかシートを自分で 設定する場合があるときには、説明文を頂けると嬉しいです。） 以上、宜しくお願い致します。
- ベストアンサー
- Visual Basic
お礼
ありがとうございました。大変助かりました。 お礼遅くなり申し訳ございません。