我也不知道怎么说清楚。。。
比如。我想将值1,2,3,4,5,分别赋给赋给sheet1中cells(i,1),cells(i,2),cells(i,3),cells(i,4),cells(i,5)这几个单元格,i 从1开始,
判断:如果第 i 行单元和内容为空,则把1,2,3,4,5,赋给cells(i,1),cells(i,2),cells(i,3),cells(i,4),cells(i,5)
如果第 i 行内容不为空,则把1,2,3,4,5赋给cells(i+1,1),cells(i+1,2),cells(i+1,3),cells(i+1,4),cells(i+1,5)
能实现这个循环语句吗。。。拜求代码,,谢谢
可能是我没说清楚。。。1,2,3,4,5 只是随便写的几个数。要是换成154,236,789,523,458这样怎么办啊,还有,如果第一行非空,就是要把值赋到第二行,如果第二行非空,就赋值到第三行,,,以此类推。。。,额。我初学者,提问还不知道提问呢。麻烦您拉
追答Sub xabc()
Dim sht As Excel.Worksheet
Set sht = Sheets("sheet1")
Dim i As Integer
For i = 1 To sht.[A65536].End(xlUp).Row + 1
If Len(sht.Cells(i, 1)) = 0 Then
Exit For
End If
Next i
sht.Cells(i, 1) = 1
sht.Cells(i, 2) = 2
sht.Cells(i, 3) = 3
sht.Cells(i, 4) = 4
sht.Cells(i, 5) = 5
End Sub
把1,2,3,4,5换成你想赋的值就行了。
我试一下啊。。谢谢你。。。
我试一下啊。。谢谢你。。。
追答For i = 1 To sht.[A65536].End(xlUp).Row + 1 '判断到数据区域的最后一行+1
If Len(sht.Cells(i, 1)) = 0 Then ‘判断是否为空
Exit For '如果是空行就跳出循环赋值,否则继续下一行。
End If
Next i
'循环结束,开始赋值。