麻辣家族討論版版 » Excel程式區 » 資料讀取及排列問題

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2016-4-25
最後登錄: 2016-4-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-4-25 13:48 | 只看該作者

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

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

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

收藏

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 3
點名: 0
作業系統: WIN7
軟體版本: 2013
閱讀權限: 10
註冊時間: 2016-4-25
最後登錄: 2016-4-25

3^#

發表於 2016-4-25 21:22 | 只看該作者

大感謝 !!!

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-4-25 15:59 | 只看該作者

Sub TUU()
Dim xR As Range, T1$, T2$, TT$
For Each xR In [B2:K2]
If xR = "Ｏ" Then
If T1 <> "" Then T2 = xR(0) Else T1 = xR(0)
Else
If T1 <> "" Then
TT = TT & "," & T1 & IIf(T2 = "", "", "-" & T2)
T1 = "": T2 = ""
End If
End If
Next
MsgBox Mid(TT, 2)
End Sub

複製代碼

靜思自在 : 有時當思無時苦，好天要積雨來糧。

返回列表下一主題上一主題