关于 vb操作excel单元格赋值问题，求救专家。

id="Topic_"  Sheet2.Range("F" & 1) = Mid(Trim(Sheet1.Range("A" & 1).Text), 6)
  
    其中  Sheet1.Range("A"&1)单元格中字符数有 5000多个
    结果到  Sheet2.Range("F"&1)中，字符就只有1019个了，丢失了很多，请问有什么办法可以解决吗？
是不是 单元格有字符**？

---

>为什么会有1019，因该是剩下6个吧？？

---

>1、Mid(Trim(Sheet1.Range("A"&1).Text),6)中应该用.Value属性，而不是.Text属性，即Mid(Trim(Sheet1.Range("A"&1).Value),6)
2、.Text属性最多只显示1024个字符，而.Value属性则显示全部字符，大约32767个字符
3、之所以显示为1019个字符，是由于你的公式截掉了5个字符
  
  
附：
  
Excel 规范与**
工作表和工作簿规范
  
功能 最大**  
打开的工作簿个数 受可用内存和系统资源的**  
工作表大小 65,536 行乘以 256 列  
列宽 255 个字符  
行高 409 磅  
分页符个数 水平方向 1000 个；垂直方向 1000 个  
单元格内容（文本）的长度 32,767 个字符。单元格中只能显示 1,024 个字符；而编辑栏中可以显示全部 32,767 个字符。  
工作簿中的工作表个数 受可用内存的**（默认为 3 个工作表）  
工作簿中的颜色数 56  
... ...

---

>借LZ的光　　长见识了

---