芯友网Xin1234.COM

VBA cells返回的书数值还是单元格?



δ�l7�lBδ�7l
cells返回的书数值还是单元格?
伟继
单元格 
δ�l7�lBδ�7l
还有end呢
伟继

这个代码 是书上的 
δ�l7�lBδ�7l

方便把代码发一下吗
我试试
伟继
Sub ces()
Dim i As Integer, arr1(), arr2()


arr1 = Range("b2:b" & Cells(Rows.Count, 2).End(x1up))

ReDim arr2(i To UBound(arr1), 1 To 1)

 For i = 1 To UBound(arr1)
    If arr1(i, 1) < 60 Then arr2(i, 1) = "不及格"
 Next
 Range([C2], Cells(Rows.Count, 2).End(x1up).Offset(0, 1)) = arr2
 
End Sub
返回第二列的最后一个非空值单元格
伟继
Sub ces()
Dim i As Integer, arr1(), arr2()
arr1 = Range([b2], Cells(Rows.Count, 2).End(x1up))
ReDim arr2(i To UBound(arr1), 1 To 1)
 For i = 1 To UBound(arr1)
    If arr1(i, 1) < 60 Then arr2(i, 1) = "bujige"
 Next
 Range([C2], Cells(Rows.Count, 2).End(x1up).Offset(0, 1)) = arr2
End Sub
δ47ζsl0ζg
少了一个.row
伟继
?银川-VBA-奔奔    用后面的代码 
δ�l7�lBδ�7l
谁知道如何封装?
ζ�zζgz4B
求助:能帮忙封装吗
δ�l7�lBδ�7l
不会a
油酱打.abv.南苍
我一直觉得能用就行了 封装 老费劲了
子公.ABV.庄家石
给写一段延时的代码吧,要求到毫秒
叶黄山山
封装代码好保护自己的作品阿

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容