[已解决]代码求助

我心飞翔410

642070295 发表于 2013-9-17 10:17
大师，我运行了不对呀？你先测试好了再发过来吧，谢谢！

==  wo 在看看  你好 没仔细想想 不好意思 我吧Q列放到数组中这个还是重一开始的 你要是389开始的话下面的单元格赋值就是要加388  因为循环从一开始的

642070295

我心飞翔410 发表于 2013-9-17 10:19
==  wo 在看看  你好 没仔细想想 不好意思 我吧Q列放到数组中这个还是重一开始的 你要是389开始的话下面的 ...

有2个疑问：
1、Range(Cells(a + 388, 2), Cells(a + 388, 23)).NumberFormatLocal = "G/通用格式"中的NumberFormatLocal="G/通用格式“是啥意思去掉可以吗？
2、For a = LBound(arr) To UBound(arr)中的LBound(arr)可以改为389吗？
谢谢！

我心飞翔410

642070295 发表于 2013-9-17 11:16
有2个疑问：
1、Range(Cells(a + 388, 2), Cells(a + 388, 23)).NumberFormatLocal = "G/通用格式"中的N ...

1个问题是设置对应的这一行2列到38列格式为常规 因为你前面设置格式 %   直接赋值0  那么就是0.00%  你可以试一下
2  这个是把这个区域放到数组中  这样定义的数组都是从1 开始的 你要从389开始的话 就是都加上388
For a = LBound(arr) +388 To UBound(arr)+388    LBound(arr)这个不能改的 要不你可以循环来完成  代码如下
Sub te()
Dim a As Integer
For a = 389 To Cells(Rows.Count, 17).End(xlUp).Row
  If Cells(a, 1) = 0 Then
   Range(Cells(a, 2), Cells(a, 23)).Value = 0
   Range(Cells(a, 2), Cells(a, 23)).NumberFormatLocal = "G/通用格式"
  End If
Next a
End Sub

642070295

我心飞翔410 发表于 2013-9-17 11:24
1个问题是设置对应的这一行2列到38列格式为常规 因为你前面设置格式 %   直接赋值0  那么就是0.00%  你可 ...

问题解决了，谢谢！已经点了最佳答案了！