excel2003 VB中 复制单元格到记事本不要空白的换行符

做了个宏, 内有语句 Range("C24:L25").Copy,然后到记事本里粘贴,原单元格C24:L25是一大串公式(=E33&N33&O33&G33&P33)形成的文本结果,但粘贴后,I在文本尾部,会出现大量的空白换行符,如何不出现这些空白的换行符呢,是在exel单元格的公式中增加新的函数,还是在宏语句中增加类似 Range("C24:L25").text.Copy ?这个.text的属性运行保存,或不支持excel2003,求解,曾经找到过办法的,突然忘记了,貌似在exel单元格的公式中增加了一个新的函数,求解
Range("C24:L25").text.Copy ?这个.text的属性运行报错,单元格公式改为 =TEXT(E33&N33&O33&G33&P33,“”)也不对

没看懂你到底要做什么

Excel 对txt的处理  一般用 printf, 而不是去粘贴

举例:

   Sub test()
    Dim f As String,dim rng as range
    f = ThisWorkbook.path & "\a.txt"
     Open f For Output As #1
      for each rng in activesheet.range("C24:L25")
      Print #1 rng.text
      next
    end sub

追问

追答

是Excel单元格内本身就有的话,
公式 外面 用个 Trim 或者 Clean 去掉 空格,

是合并单元格 , 只需要写 C24就可以了

居然用 Sendkey.......................

温馨提示:答案为网友推荐,仅供参考
相似回答