万能的集思录，20个金币求一个excel vba代码。。

D列有N个代码（代码个数不定），例如：

000001.SZ
000002.SZ
000003.SZ
000004.SZ
000005.SZ
000006.SZ
000007.SZ

一、现状，
我很土的手工算行数，然后一行一行写入1.txt：
resultfile = "D:\1.txt"
Open resultfile For Append As #1
ttr = Worksheets("sheet1").[D1].Value
Print #1, ttr
ttr = Worksheets("sheet1").[D2].Value
Print #1, ttr
……N行重复代码，读取D3、D4、D5写入txt
Close #1

**
二、改进需求：**
遍历D列，判断总行数（例如用length判断是否为空）。
然后使用循环写入txt。

先谢过了。。