[已解决]求代码简化—代码追加问题

fcdd

大侠们就代码简化
Range("F20") = [="第 1 页 ， 共 "&A4&" 页"]
Range("F30") = [="第 2 页 ， 共 "&A4&" 页"]
Range("F40") = [="第 3 页 ， 共 "&A4&" 页"]
Range("F50") = [="第 4 页 ， 共 "&A4&" 页"]
Range("F60") = [="第 5 页 ， 共 "&A4&" 页"]
Range("F70") = [="第 6 页 ， 共 "&A4&" 页"]
Range("F80") = [="第 7 页 ， 共 "&A4&" 页"]
Range("F90") = [="第 8 页 ， 共 "&A4&" 页"]
Range("F100") = [="第 9 页 ， 共 "&A4&" 页"]
Range("F110") = [="第 10 页 ， 共 "&A4&" 页"]
Range("F120") = [="第 11 页 ， 共 "&A4&" 页"]
Range("F130") = [="第 12 页 ， 共 "&A4&" 页"]
Range("F140") = [="第 13 页 ， 共 "&A4&" 页"]
Range("F150") = [="第 14 页 ， 共 "&A4&" 页"]
Range("F160") = [="第 15 页 ， 共 "&A4&" 页"]
Range("F170") = [="第 16 页 ， 共 "&A4&" 页"]
Range("F180") = [="第 17 页 ， 共 "&A4&" 页"]

最佳答案

月排行榜 / 总排行榜

zjdh

2013-12-25 17:41

For I = 2 To 18
Range("F" & I * 10) = "第 " & I - 1 & " 页 ， 共 " & Range("A4").Value & " 页"
Next

跳转到最佳答案楼层

yuan1987

dim a,b as integer
for a=20 to 180 ,step=10
for b=1 to 17
range("F" & a )=[="第" & b &" 页 ， 共 "&A4&" 页""]
next
next
试一下，没有测试

zjdh

For I = 2 To 18
Range("F" & I * 10) = "第 " & I - 1 & " 页 ， 共 " & Range("A4").Value & " 页"
Next

jio1ye

1. Sub a()
   
2. For i = 2 To 18
   
3.     Range("F" & i & "0") = "第 " & i - 1 & " 页 ， 共 " & Range("A4").Value & " 页"
   
4. Next i
   
5. End Sub

复制代码

victory610

不错，代码很精简。

fcdd

zjdh 发表于 2013-12-25 17:41
For I = 2 To 18
Range("F" & I * 10) = "第 " & I - 1 & " 页 ， 共 " & Range("A4").Value & " 页"
Nex ...

大哥我改了一下就运行不了
For I = 1 To 10
Range("F" & I * 13) = "第 " & I & " 页 ， 共 " & Range("A4").Value & " 页"
Next


Range("F23") = [="第 1 页 ， 共 "&A4&" 页"]
Range("F36") = [="第 2 页 ， 共 "&A4&" 页"]
Range("F49") = [="第 3 页 ， 共 "&A4&" 页"]
Range("F62") = [="第 4 页 ， 共 "&A4&" 页"]
Range("F60") = [="第 5 页 ， 共 "&A4&" 页"]
Range("F88") = [="第 6 页 ， 共 "&A4&" 页"]
Range("F101") = [="第 7 页 ， 共 "&A4&" 页"]
Range("F114") = [="第 8 页 ， 共 "&A4&" 页"]
Range("F127") = [="第 9 页 ， 共 "&A4&" 页"]
Range("F140") = [="第 10 页 ， 共 "&A4&" 页"]

zjdh

For I = 1 To 4
  Range("F" & I * 13 + 10) = "第 " & I & " 页 ， 共 " & Range("A4").Value & " 页"
Next
Range("F60") = "第 5 页 ， 共 " & Range("A4").Value & " 页"
For I = 6 To 10
  Range("F" & I * 13 + 10) = "第 " & I & " 页 ， 共 " & Range("A4").Value & " 页"
Next

fcdd

zjdh 发表于 2013-12-25 17:41
For I = 2 To 18
Range("F" & I * 10) = "第 " & I - 1 & " 页 ， 共 " & Range("A4").Value & " 页"
Nex ...

代码虽然可以用，，，但是运行时间要2-3秒。。。
有方法可以快一些吗？？？

fcdd

代码虽然可以用，，，但是运行时间要2-3秒。。。
有方法可以快一些吗？？？

zjdh

难道你原来的语句运行就快？？