[算表] VBA 範圍迴圈相加問題

看板Office作者 (唉呦就是那個啊~~)時間10年前 (2015/06/11 14:53), 10年前編輯推噓3(309)
留言12則, 4人參與, 最新討論串1/1
軟體: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, 不知道怎麼把最後的逗點去掉.. 請板友們幫忙看一下,謝謝! -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 203.68.96.125 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1434005594.A.6C9.html ※ 編輯: rd2l4 (203.68.96.125), 06/11/2015 14:53:23

06/11 15:02, , 1F
最後逗點去掉left(hideu,len(hideu)-1)
06/11 15:02, 1F

06/11 15:04, , 2F
或是原po在hideu字串累加上改為
06/11 15:04, 2F

06/11 15:04, , 3F
hideu = hideu & "," & i & ":" & i
06/11 15:04, 3F

06/11 15:05, , 4F
就可用mid(hideu,2)
06/11 15:05, 4F

06/11 15:07, , 5F
謝謝樓上~~~~~soyoso大人真的是神人一個,非常想拜師啊(跪
06/11 15:07, 5F

06/11 15:10, , 6F
不敢當,我也在學習中
06/11 15:10, 6F

06/11 22:14, , 7F
s大利害又謙虛
06/11 22:14, 7F

06/12 07:34, , 8F
可以選出來直接 rows(i) 做動作。
06/12 07:34, 8F

06/12 07:50, , 9F
但直接rows(i)做動作,如是刪除列delete的話,以原文的迴
06/12 07:50, 9F

06/12 07:50, , 10F
圈遞增來看,會有問題
06/12 07:50, 10F

06/12 07:51, , 11F
應以遞減的方式
06/12 07:51, 11F

06/12 14:53, , 12F
For i =7 to 1 step -1 幫忙補充
06/12 14:53, 12F
文章代碼(AID): #1LUJ1QR9 (Office)
文章代碼(AID): #1LUJ1QR9 (Office)