標題: [發問] 資料讀取及排列問題 [打印本頁]

---

作者: jamhuang    時間: 2016-4-25 13:48     標題: 資料讀取及排列問題

[attach]23986[/attach]

資料內容如圖所示
目前僅努力(也是靠別人 = =)
可以把有打O的欄位抓出來 依序填入格子

有辦法像下面那行一樣修出最後的結果嗎 @@?
請教各位大大了 ~ 謝謝

---

作者: 准提部林    時間: 2016-4-25 15:59

1. Sub TUU()
   
2. Dim xR As Range, T1$, T2$, TT$
   
3. For Each xR In [B2:K2]
   
4.     If xR = "Ｏ" Then
   
5.        If T1 <> "" Then T2 = xR(0) Else T1 = xR(0)
   
6.     Else
   
7.        If T1 <> "" Then
   
8.           TT = TT & "," & T1 & IIf(T2 = "", "", "-" & T2)
   
9.           T1 = "": T2 = ""
   
10.        End If
    
11.     End If
    
12. Next
    
13. MsgBox Mid(TT, 2)
    
14. End Sub

複製代碼

---

作者: jamhuang    時間: 2016-4-25 21:22

大感謝 !!!

雖然我應該還需要很多變化 不過先自己試試看好了
感謝大大的幫忙 跨出成功一步 !!!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)