[算表] VBA 范围循环相加问题

楼主: rd2l4 (唉呦就是那个啊~~)   2015-06-11 14:53:10
软件:EXCEL
版本:2013
标题写得很复杂其实我的问题只是一个不知道怎么删掉逗点的故事...
A B
1 1
2 1
3 1
4 0
5 0
6 1
7 0
就两行data
我用VBA寻找B等于1的值当作范围列(1,2,3,6列),希望可以出来类似这样的东西:
1:1,2:2,3:3,6:6
1. 目标是对指定列做出一些动作(隐藏或其他),是否有更好的写法
直接指定row之类的...
2. 如果不行,怎么把最后的逗点去掉...
已下是我目前菜菜的写法
Dim hideu As String
Dim i
For i = 1 To 7
If Cells(i, 2) = "1" Then
hideu = hideu & i & ":" & i & ","
End If
Next i
Cells(10, 3).Value = hideu
显示的结果是
1:1,2:2,3:3,6:6,
不知道怎么把最后的逗点去掉..
请板友们帮忙看一下,谢谢!
作者: soyoso (我是耀宗)   2015-06-11 15:02:00
最后逗点去掉left(hideu,len(hideu)-1)或是原po在hideu字串累加上改为hideu = hideu & "," & i & ":" & i就可用mid(hideu,2)
楼主: rd2l4 (唉呦就是那个啊~~)   2015-06-11 15:07:00
谢谢楼上~~~~~soyoso大人真的是神人一个,非常想拜师啊(跪
作者: soyoso (我是耀宗)   2015-06-11 15:10:00
不敢当,我也在学习中
作者: ericmis (魔流剑)   2015-06-11 22:14:00
s大利害又谦虚
作者: newton41 (Newton)   2015-06-12 07:34:00
可以选出来直接 rows(i) 做动作。
作者: soyoso (我是耀宗)   2015-06-12 07:50:00
但直接rows(i)做动作,如是删除列delete的话,以原文的循环递增来看,会有问题应以递减的方式
作者: newton41 (Newton)   2015-06-12 14:53:00
For i =7 to 1 step -1 帮忙补充

Links booklink

Contact Us: admin [ a t ] ucptt.com