[已解决]求vba解决

oiufg

book2.rar (31.59 KB, 下载次数: 14)

2013-10-30 19:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zmnyu

2013-10-30 23:48

1. Sub aa()
   
2.     Dim i As Byte, arr
   
3.     For i = 1 To 2
   
4.         arr = Sheets(i).Range("E10:IS1000").Value
   
5.         Sheets(i).Range("E10:IS1000").NumberFormatLocal = "@"
   
6.         Sheets(i).Range("E10:IS1000") = arr
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

zmnyu

1. Sub aa()
   
2.     Dim i As Byte, arr
   
3.     For i = 1 To 2
   
4.         arr = Sheets(i).Range("E10:IS1000").Value
   
5.         Sheets(i).Range("E10:IS1000") = arr
   
6.     Next
   
7. End Sub
   

复制代码

描述不是太清楚，不知道理解的对不对

oiufg

zmnyu 发表于 2013-10-30 21:28
描述不是太清楚，不知道理解的对不对

我每格都是固定三位数,百位是0的话会没了

zmnyu

1. Sub aa()
   
2.     Dim i As Byte, arr
   
3.     For i = 1 To 2
   
4.         arr = Sheets(i).Range("E10:IS1000").Value
   
5.         Sheets(i).Range("E10:IS1000").NumberFormatLocal = "@"
   
6.         Sheets(i).Range("E10:IS1000") = arr
   
7.     Next
   
8. End Sub
   

复制代码

oiufg

zmnyu 发表于 2013-10-30 23:48

不设成文本格式,下次运行公式时又要设回来