Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26378 / 76732

←次へ　｜　前へ→


	【55685】空白、重複なしのデータを出力する

min - 08/5/15(木) 21:04 -


	引用なし

	パスワード

こんばんは。

下記のようなシートがあります。
A列　B列
sss　11
sss　12
sss　12
ddd　14
fff　23
(空白行)
(空白行)
577　41
577　41
(空白行)
eee　34

これを

sss　11
sss　12
ddd　14
fff　23
577　41
eee　34

という風に空白行を飛ばし、かつ重複するデータはないように
txtファイルで出力したいのですが、どのように書くのか悩んでいます。

下記のところまで書いたのですが、
どう付け足せばよいのか教えてください。
よろしくお願いいたします。

option explicit
option base1

sub totxt()

dim myfile as string
dim lastrow as long
dim i as long

myfile="・・・\file.txt"

lastrow=activesheet.cells(65536,1).end(xlup).row

open myfile for append as #1

for i =1 to lastrow
　　print #1,cells(i,1),cells(i,2)
next i

close #1

end sub

1 hits

▼

【55685】空白、重複なしのデータを出力する min 08/5/15(木) 21:04

≪