[已解决]如何填充数组

hvail

A10到A13=1
A14到A17=2
A18到A21=3
A22到A25=4
。。。
每四个连续的单元格
依次循环到A54到A57=12

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-7-26 10:00

1.     Dim array_col As Integer
   
2.     For array_col = 10 To 57
   
3.         Cells(array_col, 1).Value = Int((array_col - 10) / 4) + 1
   
4.     Next array_col
   

复制代码

跳转到最佳答案楼层

sliang28

A10输入：

1. =INT((ROW()-10)/4)+1

复制代码

hvail

sliang28 发表于 2012-7-26 09:45
A10输入：

老师你好，这能写在VBA里不？

sliang28

可以啊！
写个小循环就可以了

hwc2ycy

1.     Dim array_col As Integer
   
2.     For array_col = 10 To 57
   
3.         Cells(array_col, 1).Value = Int((array_col - 10) / 4) + 1
   
4.     Next array_col
   

复制代码

gdsgzhrsh

Sub aa()
K = 1
For J = 10 To 57 Step 4
Range("A" & J) = K
Range("A" & J + 1) = K
Range("A" & J + 2) = K
  Range("A" & J + 3) = K
K = K + 1
Next
End Sub

hvail

gdsgzhrsh 发表于 2012-7-26 10:11
Sub aa()
K = 1
For J = 10 To 57 Step 4

乐于助人就是好事嘛
不过VBA确实历害

gdsgzhrsh

hvail 发表于 2012-7-26 10:31
乐于助人就是好事嘛
不过VBA确实历害

有VBA就要用VBA的思维来解决问题，不要老用函数的思维

hvail

gdsgzhrsh 发表于 2012-7-26 10:36
有VBA就要用VBA的思维来解决问题，不要老用函数的思维

老师！学生谨记了。。。。。

水上漂123

学习了