复制超过255字符的单元格问题

我用VBA代码复制sheet页。。但是有的单元格内容超过了255字符。。复制过去后不能全部显示。。
请问有什么好办法么。。

解决方案 »

  1.   

    模拟鼠标在该单元格内点击一下，一秒后再点击一下，全选，复制到剪贴板，从剪贴板中取出？在Excel 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。
      

  2.   

    我是用VBA代码直接复制一个SHEET页的全部内容复制到剪贴板...
    然后再把整页的内容都直接复制到另一个xls文件中...
      

  3.   

    代码不在本机。。只敲了部分代码~~Set cpCell = xlSheet.Range("A1")
    Sheets(sheetName).UsedRange.Copy
    cpCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    cpCell.PasteSpecial Paste:=xlPasteFormats
      

  4.   

    代码不在本机。。只复制了部分代码~~Set cpCell = xlSheet.Range("A1")
    Sheets(sheetName).UsedRange.Copy
    cpCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    cpCell.PasteSpecial Paste:=xlPasteFormats
      

  5.   

    这是一个局限性。一个单元格可容纳的字符为65536，但复制过来不能超过255。类似的在使用Tranpose函数时其参数数组也不能超过255。我的做法是先将要复制的区域转到数组中，在对数组中长度超过255的元素进行单独标记存贮并清空，用数组对区域赋值后再对标记的数组元素相对应的单元格单独处理，