返回列表 上一主題 發帖

[發問] 資料讀取及排列問題

jamhuang

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
WIN7 
軟體版本
2013 
閱讀權限
10 
註冊時間
2016-4-25 
最後登錄
2016-4-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-4-25 13:48 | 只看該作者

[發問] 資料讀取及排列問題



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

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

准提部林

帖子
2842 
主題
10 
精華
0 
積分
2898 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-4-28 
2#
發表於 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
複製代碼

TOP

jamhuang

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
WIN7 
軟體版本
2013 
閱讀權限
10 
註冊時間
2016-4-25 
最後登錄
2016-4-25 
3#
發表於 2016-4-25 21:22 | 只看該作者
大感謝 !!!

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

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題