[已解决]在不同单元格输入顺序数字。

v-cand

我需要在T3/T24/T45........等单元格输入1/2/3/4..........等，请问我下面的代码哪里出错了？
Sub A()
Dim K As Integer, N As Integer, M As Integer
N = Cells(“T”, COLUMNS.COUNT).End(3).COLUMN
For K = 3 To N Step 21
M = M + 1
Cells(K, "T") = M
Next
End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-3 10:49

v-cand 发表于 2015-5-3 10:44
是的，请问我要在其他单元格A2/A4/A6/A8.......等单元格中实现这个代码应该怎么修改代码中参数呢？小弟白 ...

   N = Cells(Rows.Count, 2).End(3).Row
主要是最后一个非空单元格的定位，具体要看哪列合适，就用哪列，其他你的代码没啥问题

跳转到最佳答案楼层

qh8600

1. Sub A()
   
2.     Dim K As Integer, N As Integer, M As Integer
   
3.     N = Cells(Rows.Count, 2).End(3).Row
   
4.     For K = 3 To N Step 21
   
5.         M = M + 1
   
6.         Cells(K, "T") = M
   
7.     Next
   
8. End Sub
   

复制代码

这样》。。

v-cand

qh8600 发表于 2015-5-3 10:38
这样》。。

是的，请问我要在其他单元格A2/A4/A6/A8.......等单元格中实现这个代码应该怎么修改代码中参数呢？小弟白菜一个。

qh8600

v-cand 发表于 2015-5-3 10:44
是的，请问我要在其他单元格A2/A4/A6/A8.......等单元格中实现这个代码应该怎么修改代码中参数呢？小弟白 ...

   N = Cells(Rows.Count, 2).End(3).Row
主要是最后一个非空单元格的定位，具体要看哪列合适，就用哪列，其他你的代码没啥问题