|
こんばんは。
下記のようなシートがあります。
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
|
|