如何用数组方式将EXCEL内容输出到TXT文本

taikong

请大家帮忙啊！

taikong

ding

taikong

??/

wwzff

用vba读取原是excel,按行读取,新生成一个txt文本,再写进去不久行了?

或者用宏录制另存为txt的代码,在适当处理不久行了.

雨雪其霏

If (k1 - k2 <> 0 And k1 - k3 <> 0 And k1 - k4 <> 0 And k1 - k5 <> 0 And k1 - k6 <> 0 And k2 - k3 <> 0 And k2 - k4 <> 0 And k2 - k5 <> 0 _
          And k2 - k6 <> 0 And k3 - k4 <> 0 And k3 - k5 <> 0 And k3 - k6 <> 0 And k4 - k5 <> 0 And k4 - k6 <> 0 And k5 - k6 <> 0) _

顺便问一下,如果想只允许其中一项相减可以等于0,就是说,条件是要么全不为0,或者仅有一项为0,该怎么写呢?感觉自己好笨啊,想不出来.

把K1~K6存成一个数组，然后用循环判断，最后检查计数器情况：
js=0   '循环前首先设置计数器为0
wz=0   '记录计算总次数
for a1=1 to 5
    for a2=a1+1 to 6
        wz=wz+1
        if shuzu(a1)-shuzu(a2)<>0 then js=js+1'每当满足条件时js就增加1
    next
next
'以下判断js的值来决定下一步的方向
if wz-js<=1 then... :... :...else... :... :... :... '如果wz-js<=0就是全部满足，<=1则是允许有一个不满足……

aliCT

留下来学习