ついに夏本番!さぁ、家族でキャンプに行くぞ! >>

お忙しいところ誠に恐れ入りますが、ご教授を
いただきたく存じます。

09/04/30 ああああああ
09/04/28 いいいいい

上記のような、txtデータを、エクセル上に
「日付」(例.09/04/30 )をA列
「内容」(例.ああああああ)B列

といった具合に区分けして、入力したいです。

現在は、txtファイルをコピーして、
・日付
・内容
とそれぞれ、貼り付けを
行っています。ですが、今後、400件くらいの
データをエクセル化しなければならず、1点づつ、コピペしていては
膨大な時間がかかってしまいます。

txtを、エクセルで開く際に、何か設定(タブ区切りとか)を
行うなど、効率的な方法があれが、ご教授いただきたく
存じます。

業務につき、少々急いでおります。
よろしくOneが言いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

    • good
    • 0
この回答へのお礼

大変分かりやすい内容です。本当にありがとうございました。

お礼日時:2009/05/27 16:14

上記が1列になっているなら、その列を選択して


メニューの「データ」「区切り位置」で「カンマやタブ...」を選択して次へ
区切りに使われている内容を選択(タブ スペース)して完了
    • good
    • 0
この回答へのお礼

大変分かりやすい内容です。ありがとうございました。

お礼日時:2009/05/27 16:08

ファイル→開く



で、そのテキストを開けばウィザードが始まると思いますが?
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2009/05/27 16:15

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qメモ帳(テキストデータ)をExcelにセルに分けて貼り付ける方法は?

例えば、以下のようなメモ帳(.txt)のデータをExcelに貼り付ける際に、スペースが空いているもの単位で、セル別に貼り付ける方法はございますでしょうか?

(データ例)
100 150 130
200 200 230

このデータについては、100→A1、150→B1などセル毎に貼り付けたいと考えております。

A1 B1 C1
A2 B2 C2

Aベストアンサー

Excelのシートを開いた状態で、
データ→外部データの取り込みでファイル名(Txtファイル)を指定し、
スペースによって右・・の欄にチェックを入れ、読み込めば出来ます。

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

エクセルに入力済みの連続したデータを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を使用しております。

Aベストアンサー

このマクロは、そのデータとは関係のない余計なデータが右側セル、下側にあると、誤動作しますので、その点は注意してください。
必ず、<標準モジュール>でお使いください。

'目的のブックのシートを開いたままお使いください。
Sub ColumnOut2Text()
Dim i As Long
Dim j As Long
Dim Fno As Integer
Dim OutColumn As String
'ユーザー設定
  Const myPath As String = "C:\ZZZ\"
 'かならず、最後に\ を入れてください。
'
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
 Fno = FreeFile()
 Open myPath & .Cells(i, 1).Value & ".txt" For Output As #Fno
 For j = 1 To .Cells(1, Columns.Count).End(xlToLeft).Column
  OutColumn = .Cells(1, j).Value & Chr(13) & .Cells(i, j).Value & Chr(13)
  Print #Fno, OutColumn
 Next j
 OutColumn = Empty
 Close #Fno
Next i
End With
 Beep
End Sub

このマクロは、そのデータとは関係のない余計なデータが右側セル、下側にあると、誤動作しますので、その点は注意してください。
必ず、<標準モジュール>でお使いください。

'目的のブックのシートを開いたままお使いください。
Sub ColumnOut2Text()
Dim i As Long
Dim j As Long
Dim Fno As Integer
Dim OutColumn As String
'ユーザー設定
  Const myPath As String = "C:\ZZZ\"
 'かならず、最後に\ を入れてください。
'
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Coun...続きを読む

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい


人気Q&Aランキング