excel vba查找粉红色填充单元
k:z范围同列查找最后一个粉红色离最后一个单元相差多少步长(单元)3.结果在同列第9单元例如:k列最后填充《粉红色》单元在倒数第1单元,哪么k9结果是0例如:j列最后填充...
k:z范围
同列查找最后一个粉红色离最后一个单元相差多少步长(单元)
3.结果在同列第9单元
例如: k列最后填充《粉红色》单元在倒数第1单元,哪么k9结果是0
例如: j列最后填充《粉红色》单元在倒数第104单元,哪么j9结果是104 展开
同列查找最后一个粉红色离最后一个单元相差多少步长(单元)
3.结果在同列第9单元
例如: k列最后填充《粉红色》单元在倒数第1单元,哪么k9结果是0
例如: j列最后填充《粉红色》单元在倒数第104单元,哪么j9结果是104 展开
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
Sub tt()
Dim arr
Dim i%,j%,n%,st$
arr = Range("K1:Z" & [Z65536].End(3).Row)
For ii= 1 to Ubound(arr,2)
For i = Ubound(arr) to 1 Step -1
st = arr(i,ii)
For j = 1 to len(st)
n = Instr(1,st,Mid(st,j,1))
If n < j Then
Range(cells(i,ii+10),cells(i,ii+10)).Interior.Color= 16751103
Range(cells(9,ii+10),cells(9,ii+10))=Ubound(arr)-i
Goto rs
End If
Next
Next
rs:
Next
End Sub
来自:求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询