• 締切済み

＜EXCELマクロ＞テキストデータの貼り付け

お世話になります。 テキストファイルのデータをＥＸＣＥＬシートに貼り付けるための ＶＢＡを教えて頂けないでしょうか。 具体的には下記をご参照願います。 下記「テキスト」に３つのテキストファイルが格納されています。 これの内容を、下記のように、ＥＸＣＥＬシートに貼り付けたい と考えています。 以下、具体的説明 ＜フォルダの場所と名前＞ C:\テキスト ＜テキスト形式、TAB区切り＞ ファイル１　　ファイル２　　ファイル３ １番　鈴木　　Ａ社　米国　　判定　○ ２番　左藤　　Ｂ社　タイ　　判定　△ ３番　田中　　Ｃ社　韓国　　判定　× ・ ・ ・ ＜EXCELへの貼り付け＞ 　　A　　 B　　 C　　 D　　 E　　F 1　１番　鈴木　Ａ社　米国　判定　○ 2　２番　左藤　Ｂ社　タイ　判定　△ 3　３番　田中　Ｃ社　韓国　判定　× ・ ・ ・ 注意）A～Fはセルの列、1～3はセルの行を意味します。 説明は以上です。 自分で勉強すべきことと反省していますが、 急いでおりますので、回答のほど宜しくお願い致します。 以上です。

noname#129132
noname#129132

みんなの回答

回答No.1

テキストデータをExcelで開いて、「データ」→「区切り位置」→元データの形式（タブ区切りとか、スペース区切り等）を選べば、区切れますけど・・・ そんなんじゃダメですかね？

noname#129132
質問者

お礼

お礼が遅れて申し訳ございません。 質問の件は、ＶＢＡで自動化したかったのでお尋ねした次第です。 ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • VBAでの重複データ統一についてです。

    　いつもお世話になっております。VBA初心者です。 過去の質問で、２つのセルの重複データを一つのデータにする処理があったのですが、３つのセルの重複データを１つのデータにするやり方に苦戦しております。 （A列）　（B列）　（C列） 　Ａ社　　鈴木　　　男性 　Ｂ社　　田中　　　女性 　Ａ社　　鈴木　　　男性 　Ｂ社　　佐藤　　　女性 　Ｂ社　　田中　　　女性 　Ａ社　　鈴木　　　男性 　　　　　↓↓ （A列）　（B列）　（C列） 　Ａ社　　鈴木　　　男性 　Ｂ社　　田中　　　女性 　Ｂ社　　佐藤　　　女性 　となるようにしたいのです。 サンプルソース等がありましたら、 よろしくお願いいたします。

  • excelデータの切り貼りマクロ

    excelマクロの初心者です。 データの切り貼りをするマクロについて教えてください。 以下のような担当者と会社名の入った縦に大きなデータを 担当 社名 佐藤 A社 佐藤 B社 佐藤 C社 田中 D社 田中 E社 田中 F社 鈴木 G社 鈴木 H社 鈴木 I社 高橋 J社 高橋 K社 高橋 L社 最終的に 佐藤 田中 鈴木 高橋 A社 D社 G社 J社 B社 E社 H社 K社 C社 F社 I社 L社 このように一番上に担当者、下に該当する社名を羅列されるように切り貼りをしたいと思っています。 ファイルがいくつもあり、また行数はファイルごとに異なり一定ではありません。 マクロでどのように書いたらよいかご教授頂けないでしょうか。 よろしくお願いいたします<(_ _)>

  • excel2003　2列のデータを1列に

    エクセル2003にて 下記のように2列のデータを1列に表示させたいと思っております。 A列 　B列　　　　　　　　　　　　　　C列 田中 佐藤　　　 　　　　　　　　　　田中 鈴木 池田　このように＞ 　　 　 鈴木 後藤 内藤　　　　　　　　 　　　　　後藤 　　　　　　　　　　　　　　　　　　　　佐藤 　　　　　　　　　　　　　　　　　　　　池田 　　　　　　　　　　　　　　　　　　　　内藤 C列に入れる数式をお教えください。 よろしくお願いします。

  • EXCEL：抽出・シートに分散させる方法

    下記の様なデータを元に、各担当者別に用意された売り上げ表の雛形に表示させたい（指定した項目を指定したセルに）のですが、 実現出来る関数はありますでしょうか？ オートフィルタ＞コピペではなく、毎月の処理になるので自動的に出来る様にしたいのですが。 顧客名　　担当者　　商品名　　金額 Ａ社　　　佐藤　　　バナナ　　100 Ｂ社　　　鈴木　　　バナナ　　100 Ｃ社　　　田中　　　メロン　　100 Ａ社　　　佐藤　　　バナナ　　300 Ａ社　　　佐藤　　　リンゴ　　200 Ｃ社　　　田中　　　メロン　　100 これを↓ Sheet 佐藤 顧客名　　商品名　　金額 Ａ社　　　バナナ　　100 Ａ社　　　バナナ　　300 Ａ社　　　リンゴ　　200 ------------------ Sheet 鈴木 顧客名　　商品名　　金額 Ｂ社　　　バナナ　　100 ------------------ Sheet 田中 顧客名　　商品名　　金額 Ｃ社　　　メロン　　100 Ｃ社　　　メロン　　100 よろしくお願いします。

  • Excelマクロ　テキスト貼り付け

    テキストファイル（*.txt）を開き、A1に貼り付けるマクロを教えてください。 B列には計算式があるため、A列にテキストの内容を貼り付けたいです。 また、テキストのファイル名はランダムなため、 フォルダを開いて、テキストを開きたいのですが教えてください。

  • Excelのマクロについて

    質問の内容なのですが、ファイルA.xlsのファイルの中にtestAというシートがあったとします。 A(列) B ・赤組 田中 ○○ 鈴木 ×× 高橋 △△ ・青組 田代 ○○ 鈴木 △△ 広瀬 ×× ・白組 三浦 ×× 橋本 ○○ 鈴木 △△ 上記のようになっている状態で赤組の「鈴木」に該当するセル内の文字列を別のファイルである ファイルB.xlsのtestBというシートの任意のセル(仮にD7とします)に貼り付けることは可能なのでしょうか？ よろしくお願い致します。

  • Excel2003でマクロを使用してtxt取り込み

    エクセルでマクロを使用して、複数のtxtファイルを取り込みたいのですが うまくいかず困っております。 過去の質問を見ながらやりたい事に近い下記のサンプルマクロを見つけました。 サンプルマクロ-------------------------------------------------------- Sub txt取り込み() Dim OpenFileName As Variant OpenFileName = Application.GetOpenFilename(FileFilter:="テキスト,*.txt?", _ MultiSelect:=True) If IsArray(OpenFileName) Then '''' Else MsgBox "キャンセルしました、OKを押してください" End If End Sub ------------------------------------------------------------------- これだけでは、マクロ実行→ダイアログボックスでtxtFile選択。で終わってしまいます。 ここから下記の「txtFile内容説明」ご参照のうえ、以下の「手順」でtxt取込み出来る様、 ご教授いただけませんでしょうか? 「txtFile内容説明」--------------------------------------------- ・ダイアログボックスで選択したいテキストファイルは最大100個です ・テキストファイルには、カンマで区切られたデータが保存されております テキストファイル例(ファイル名は001.txtから連番で100.txt) 　001.txt→"001","A001","B","C", 　002.txt→"002","A002","B","C", 　003.txt→"003","A003","B","C", 　　． 　　． 　　． 　100.txt→"100","A100","B","C", 「txtFile内容説明」ココまで--------------------------------------- 「手順」---------------------------------------------------------------------- (1)ダイアログボックスでテキストファイル複数選択(テキストファイル100個選択したとして) (2)セルR3:R102(R3に001.txt R4に002.txt　R5に003.txt … R102に100.txt)を読み込み (3)それぞれのテキストファイルをカンマ区切りで、右セルに区切って取り込み セル配置 　R3　　　　S3　　　　T3　　　　U3 　R4　　　　S4　　　　T4　　　　U4 　R5　　　　S5　　　　T5　　　　U5 　　． 　　． 　　． 　R102　　S102　 　T102　 　U102 上記、セル配置に取り込まれたデータ 　001　　　A001　　 　B　　 　　C 　002　　　A002　 　　B　　 　　C 　003　　　A003　　 　B　　 　　C 　　． 　　． 　　． 　100　　　A100　　 　B　　 　　C と、なるようにマクロを作成することは可能でしょうか? その場合、どのような記述になるのか教えていただければ幸いです。 「手順」ココまで------------------------------------------------------------- 予備情報 説明の為、テキストファイル内データを、"003","A003","B","C",と、4データにしておりますが、 実際は16データあり、さらに1データの文字数は10ケタあります。 実際に16データ、文字数10ケタで質問説明を書いたのですが、あまりにわかりにくくなってしまい、 4データとして、文字数も絞らせていただき、質問致しました。 申し訳ございません。 なお、100個のテキストファイルを読み込ませ、セル範囲R3:AG102にデータテーブルを作りたいと 考えております。 説明不足な点ございましたら、ご指摘いただけますでしょうか。 何卒、よろしくお願い致します。

  • MS Office Excel 2003でテキストデータファイルを読み

    MS Office Excel 2003でテキストデータファイルを読み込む方法 1111.txt 2222.txt 3333.txt というテキストデータファイルがあり、中身は添付画像の様になっています。 （テキストファイルは同じフォルダに格納されています） このテキストデータをExcelに読み込みたいのですが、以下の様な動作をして欲しいと思っています。 (1)セルA1にテキストデータファイルのファイル名（拡張子は省く）を入れる (2)セルA2から下に、添付ファイルのA列のデータが入り、セルB2から下にE列のデータが入る (3)セルA1に別のファイル名を入れると、そのファイルのテキストデータに切り替わる このような事は可能なのでしょうか？ もし可能であれば教えて下さい。 よろしくお願いします。

  • エクセルで別シートに条件の合う全てのデータ抽出

    初めまして。 いろいろ見てみたのですが解決しなかったので教えて下さい。 Sheet1には 　　 　受付日　　氏名　　生年月日 　住所 　　　　 A　　　 B　　　 C　　 　D　 １　2007/10/1 左藤　 S50.10.10　 大阪府 ２　2007/10/1 鈴木　 S57.04.25　 奈良県 ３　2007/10/2 吉村　 S49.09.17　 鳥取県 ４　2007/10/8 山田　 S49.09.09　 東京都 ５　2007/10/9 伊藤　 S50.10.13　 愛知県 ６　2007/10/9 上田　 S57.04.19　 福岡県 上記のようなデータを下記のようにSheet2に生年月日でデータを抽出したいのですが抽出したい年月をA1に入れたらデータがとんでくるようにするにはどうすれば良いでしょうか?教えて下さい。 　　　　 A　　　 B　　　 C　　 　D　 １　　S50.10 ２　2007/10/1 左藤　 S50.10.10　 大阪府 ３　2007/10/9 伊藤　 S50.10.13　 愛知県 VLOOKUPで作ってみたのですが一つしかとんでこなくて下記のように全て表示でません。 　　　　 A　　　 B　　　 C　　 　D　 １　　S50.10 ２　2007/10/1 左藤　 S50.10.10　 大阪府 ３　2007/10/1 左藤　 S50.10.10　 大阪府 どうかよろしくお願いします。

  • 1行単位のデータをテキストファイルに保存するマクロ

    エクセルに入力済みの連続したデータを1行単位で以下のような内容でテキストファイルを作成し、 かつテキストファイル名を、セルに入力されている文字を使って保存するマクロを作りたいのですが、 どのようにしたら良いのでしょうか？よろしくお願いします。 *エクセルシート （ファイル名：aaa.xls シート名：sheet1 エクセルシートがあるフォルダ名：yyy） _|A |B |C | 1|x |y |z | 2|a1|a2|a3| 3|b1|b2|b3| *テキストファイル（保存するフォルダ名：zzz） ---テキストファイルの内容（ファイル名：a1.txt） x a1 y a2 z a3 --- ---テキストファイルの内容（ファイル名：b1.txt） x b1 y b2 z b3 --- エクセルはExcel2000でWindows2000を使用しております。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する