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
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
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.庄家石
给写一段延时的代码吧，要求到毫秒
叶黄山山
封装代码好保护自己的作品阿
相关问题
------分隔线----------------------------
- 赞助商链接
- 热点内容
- Excel怎么批量把 每5组放在一个单元格里VBA的话语句怎么说
- 如何设置一个单元格，根据另外一个单元格的选项而改变。比如a1输入管理，b1就直接显示1000；如果a1输入组长，你就直接显示800；如此类推。有人知道吗?我是用来做工资表的。
- 源表，想要实现这样的引用功能，一般情况下用sumifs可以解决，但是如果上面的版本或者渠道是全版本，全渠道，意味着sumifs里面不需要引用这个条件限制，应该怎么写呢？是不是需要vba，vba该怎么写？
- vba就是vb的延伸反正只要知道表格的问题我们都能解决
- Excel如何用下拉德方法找出19~33中不含非空单元格的B列和U列，求帮忙，谢谢18~33或15~33
- Excel大神们，想给WPS单元格里的某一个汉字加超链接，咋弄呢
- Excel请问大家，我想在这个单元格内自动求和右边同一行的所有数字之合，该如何写公式
- Excel这两列数据可以直接写公式相减，计算结果自动显示在下面那个合并的单元格内吗
- 问一下，WPS的Excel也可以用VBA吗 ?
- Excel请问大家，我用可见单元格。把错误值都改成0，怎么能快速的改？不能下拉。
- 赞助商链接
- 推荐内容
- vba中的公共变量，不关闭excel文件，数据一直保留着？？？
- vlookup如何把数值显示到另外一个文件内求指教
- 为什么Excel保存打开特别慢，一看达到120M，各位大神有知道怎么解决的吗？里面有VBA程序
- phpexcel导出 能不能设置单元格大小呢
- EXCEL与ACCESS的VBA代码差别大吗
- Excel我想起来一种办法，单元格序号自动生成的办法
- Excel如果一列有相同的A，相同的B，相同的C，怎么写函数只让他们在最后一个单元格A最后一个单元格B最后一个单元格C的那一行求汇总值？
- Excel哪位大佬知道单元格输入时看不见输完可以看见内容是什么情况有没有大佬见过这种情况的指教一下
- Excel问下有什么公式能根据前面的字计算数值吗，就比如迟到，前面一行带“迟”字就记为1，2个“迟”就记为2
- Excel合并多个单元格里面的数据，显示在一个单元格内，并且换行。什么公式
- excel已知10份同样维度的表，求如何汇总到同一个表的不同表单。
- Excel有人知道如何把这些单元格里的空行删除吗
- Excel大家好，请问为什么设置了公式总有某些单元格不显示0呢？
- Excel表格是横向，能转换成竖向吗？
- vba不会英语，能入门不？
- Excel大神们，sumif不出结果是哪里有问题呢
- Excel判断A1的结果为1时，发出提示音，结果不为1时不发出声音，要求一分钟循环一次，比如A1不一定是数值，也可以是公式计算的结果
- Excel我箱问问怎样能快速选择这些单元格合并还保持单元格颜色不变，难道只能一个一个选中合并吗
- Excel现有的一列有水方数，隔一列把利用率卡在85—95之间，求出中间一列的亩数大神们 资讯个问题。现有的一列有水方数，隔一列怎么把利用率卡在85—95之间，求出中间一列的亩数
- Excel有TEXTJOIN 能麻烦帮忙做出来下吗 忘了怎么写了
